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Identification 

eeeeeereaeeerat 
Product Code: AC-B037C-MC 
Diagnostic Code: MAINDEC-11-CRLPG-C 
Product Name: CRLPGCO LPA/KW11K TEST 
Date Revised: DEC. 1980 
Maintainer: DIAGNOSTIC ENGINEERING 


Copyright (C) 1978, 1979, 1980 
Digital Equipment Corporation, Maynard, Mass. 


This software is furnished under a license for use only on a 
single computer system and may be copied only with the inclusion 
of the above copyright notice. This software, or any (other 
copies thereof, may not be provided or otherwise made available 
to any other person except fur use on such system and to one who 
agrees to these license terms. Title to and ownership of the 
software shall at all times remain in DEC. 


The information in this document is subject to change without 
notice and should not be construed as a commitment by Digital 
Equipment Corporation. 


DEC assumes no cospens tpi rey for the use or reliability of its 
software on equipment which is not supplied by DEC. 
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1.0 ABSTRACT 
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""C’’ VERSION OF THE PROGRAM IS DUE TO A CHANGE IN THE MICRO- 


CODE 1). 

*"B’' VERSION OF THE PROGRAM FIXES LS210 THRU LS230 PROGRAM BUGS 

AND SEVERAL DOCUMENTATION ERRORS. 
This hgh allows the user to check out or de the KWIIK, 
DUAL REAL TIME CLOCK. The logic test is self contained and needs 
no external maintenance hardware or operator intervention. 


Five special tests are included within this program to allow the 
user to check out and debug the external 1/0 signals. To run 
ays = Ng a jumper wires is needed in order to loop output to 
an input. 


THIS PROGRAM IS A MODIFIED VERSION OF ‘MD-11-DZ2KWK-A'’. IT WAS 
MODIFIED TO ENABLE THE OPERATOR TO CHECK OUT THE KW11K OPTION 
WHEN te is ON THE ye dare 1/0 BUS. CAB 


SOME TEST DONE 

TEST, WERE DELETED AS THEY COULD NOT BE CHECKED. IF THIS 
DIAGNOSTIC DOESN'T FIND A SUSPECTED PROBLEM, YOU MAY HAVE TO 
RUN 'MD-11-DZKWK-A"’. YOU SHOULD RUN 'MD-11-CRLPA"’ BEFORE 
RUNNING THIS DIAGNOSTIC. PLEASE READ SECTION 10. 


REQUIREMENTS 

eeeeeeeeeeee 

Equipment 

1. PDP11 FAMILY COMPUTER with 16K of memory or more and 1/0 
facilities (a switch register or TTY). 

2. KW11K under test installed in the LPA-11KX. ( 

3. For external 1/0 signal tests a loopback wire (Jumper) is 
needed. Jumpers are 30 AWG jumper type 

4. LPA11-KXx 

Storage 


This program occupies and uses only the lower 16K of memory. 
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3.1 
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LUACING PROCEDURE 
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Method 

Standards procedure for normal binary tapes should be followed. 
1. Absolute loader must be in memory. 

2. Place binary tape in reader. 

3. Load address *7500 (* determined by location of loader). 

4. Press ‘’Start’’ (program will be loaded into memory). 


The program can also be loaded by XXDP, ACT, or APT. 


Non-Standard Address, Vector, or Priority; or Use of Software 
Switch Register ' 


This program is set to test a KWI1K with a standard address, 

vector, and priority. If any of these are different on the KW11K 

ou are testing, change the corresponding location in memory 
fore starting this test. 


LOCATION TAG CURRENT CONTENTS COMMENTS 

1254 SBASE: 170404 ::Base address of equipment 
33 under test 

1250 SVECT1: 000344 sz INTERRUPT Vector #1 

1252 $PRIOR: 000006 3;Bus priority - 1,#2 

176 SSWREG: 000000 sManual SWR. 

STPFLG: -BYTE 0 z7''‘Terminal Available’ 
3; Flag (Bit<0:7>=0=Yes) 
NOTE 


If no hardware Switch Regster, exists, 
you aty set any bit in ‘‘SWREG' as you 
would have set it in the SWR. 


SEQ 0004 
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4.0 STARTING PROCEDURE 


| 


4.1. 
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Control Switch Settings 


Starting at memory locations 200, 204, 210, 214, 220 
or 234, set all switches as desired. See Section 5.1. 


224, 230 


Starting Addresses 


200 
204 


210 


214 
220 
224 
230 
234 


Start address for logic test. 

Restart address for logic test. 

Start address for ‘‘STP2 OUT’, ‘SCHMITT TRIG 1"° tests. 
Start address for ‘‘STP1 OUT’, ‘SCHMITT TRIG 2" tests. 
Start address for ‘SCHMITT TRIG 3 IN’, ‘STS OUT’’ tests. 
Starting address for ‘‘A EVENT OUT’ test. 

Starting address for 'B EVENT OUT’ test. 

Starting address for ‘USER LINK"’ Loop. 


Program AND/OR Operator Action 


1, 


Load program into core. 

Set switch register to starting address. 

Load address. 

Set switches to deisred settings - see section 5.1. 


IF starting a special 1/0 signal test: 
MAKE WIRE LOOP CONNECTION. 


Press Start. 
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5.0 OPERATING PROCEDURE SEQ 0006 


RIKAAAAAAAAARAAAAAEE 


5.1 Switch Register Function 
Switch use 


5 Halt on error 
4 Loop on test 
3 =Inhibit error typeout (all tests) — 
3 Inhibit ‘’*’' typeout (special 1/0 signal tests) 
0 Bell on error 
Loop on error 
Loop on test in SWR <7:0> 


5.2 Scope Loops 


If an error occurs and the user wishes to scope the error, he (or 
she) should set $W15=1 to halt on error, then when the program 
halts on error, SW15=0, set SW14=1. To loop on current test, set 
tle to inhibit error printout, and press continue on the CPU's 
console. 


NOTE 
For each test in the listing, you will 
find a test description. In each 
description a probable SYNC Point is 
listed. These Points are listed AS A 


GUIDE in order for you to SYNC your 
scope to the Signals being generated. 


5.3 Program AND/OR Operator Action 


53.1 Logic Test 


For each pass through the program ‘END PASS" will be printed out 
at the end of a pass. 


If not inhibited by APT, the program will look for more KW11Ks to 
exercise, one pass will exercise all KW11Ks. 


5.3.2 Special 1/0 Signal Tests 


There are no ‘Short Passes’. Each pass wili iterate 65,324 
times. A ‘'t’’ is typed at the end of a pass unless SWR15=1. 
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‘6.0 ERRORS 


6.1 


6.1.1 


6.2 
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Error Printout 


Printout varies with the error detected. The error PC typed out 
is he actual location of the error call. 


A halt at location ‘"‘STYPE'+10 when running with no terminal 
indicates an error has occurred. To find out the number of the 
error, examine Location ‘‘STSTNM’’. This is the item number of the 
error. To find out what the error gr would have been GOTO to 
the error pointer table beginning at location ‘‘SERRTB". 


Example 
If we examined Location ‘‘STSTNM'’ and found a5 (101) we go to 
location ‘‘SERRTB’’ and Look through the error pointer table until 
we found item 5. The information would look Like: 


; ITEM 5 


EMS ;CLOCK B SR DATA ERROR 

DHS sERRPC BSR WAS S/ 
DT5 ;SERRPC ,BSR,SBDDAT , SGDDAT 

DFO sALL NUMBERS ARE IN OCTAL FORM 


To find out the information specified by DT5 
(SERR#C ,BSR,SGDADR,$BDADR) follow these steps: 


1. Look uphe address of the Label (i.e., SERRPC) in the symbol 
table which follows the Listing. 


2. Put this address in the witch register and depress the load 
address switch on the processor's console. 


3. Now depress the Examine switch. 
4. The data displayed in the data lights is the information that 


would have been prentes for his label if you had a 
input/output terminal. 


Non-Standard Error HALTS 


A HALT MAY OCCUR IF THE PROGRAM DETECTS AN LPA11-KX ERROR. 
CHECK THE COMMENTS IN THE LISTING OPPOSITE THE PC HALT. 
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17.0 RESTRICTIONS 


RAEAAeeeaeaeenre 

rw — be installed if not /vaneree ¢ 
SUM ER W AND WS MUST BE INSTALLED TO RUN STGNAL “TESTS. 
Logic Test must be run before any special 1/0 Signal Test. 
The program is os +e a under XXDP. However only one pass may 
be made ( R RLPGCO/1 ). 


8.0 MISCELLANEOUS 


REAAHAAAEAEEE 


After a power failure occurs, program execution will NOT continue at 
the point where the power failure occured. 
The program will be restarted. 


This program is chainable under XXDP, ACT, or APT. 


Logic Test 
90 SECONDS if no errors. 


8.3.2 Special 1/0 Signal Tests 
1.0 Minutes No errors, SW13=0. 
Execution times are approximate, as the various PDP-11 CPU's have 


varied instruction execution times. 
Times quoted were taken from a run on a PDP-11/34. 
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USER LINK TO 1/0 DEVICE 

A SPECIAL USER LINK HAS BEEN PROVIDED IN ORDER FOR THE 
OPERATOR TO EXAMINE OR MODIFY LOCATIONS ON THE LPA11-Kx 
1/0 BUS. (NOTE: THIS CANNOT BE DONE DIRECTLY.) 
PROCEDURE : 

1) START THE PROCESSOR AT LOCATION 234 


2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 


E OR D 
DEVICE ADDRS= “OCTAL ADDRS"’ 
XXX 


WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 


E OR D > eh 
DATA= “DATA TO BE DEPOSITED" 


4) THE PROGRAM WILL STAY IN THIS LOOP UNTIL THE OPERATOR 
2 AT THIS TIME THE PROCESSOR SHOULD BE 


NOTE: THE OPERATORS RESPONSE IS ENCLOSED IN QUOTES. 





SEQ 0009 
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9.2.1 


Logic Tests 


A complete description of each test is included withing the 
Listing before each test. 


Special External 1/0 Signal Tests 


L$210 "'STP2 OUT" to "SCHMITT RIG 1 IN’ Tests 


This is a special section devoted for testing and providing scope 
Loop capabilities for ‘'STP2 OUT’ L and ‘'SCHMITT TRIG 1°° IN. 


When you load and start at location 210, program control is 
transferred here. ‘‘STP2 OUT’’ L pulses are generated by ‘LO STAT 
AHI" H + “BD10" H (Main. STP2). 


Pin Vv ('STP2 OUT’) fs wired to pin LL (SCHMITT TRIG1) for this 
test. ‘‘STP2 OUT’ pulses are received as ‘SCHMITT TRIG 1°' pulses 
which set clock A's status register bit 15. If an error is 
detected, normal error reporting technique. and error switch 
register options are used. An ‘‘*’ is type after each 65,324 
Loops through the test. SW13=1 will inhibit this feature. 


You must wire pins V and LL of J1 together. 
Jumper W3 mist be INSTALLED. 


Logic test (L + $ 200) should be run first. 


9.2.2 LS214 “"STP1 OUT’ to ‘“SCHMITT RIG 2°’ H Tests 


This is a special test section devoted for esting and providing 
scope loop capabilities for "'STP2 OUT’ and ‘‘SCHMITT TRIG2"’ IN. 


When you load and start at location 214, program control is 
transferred here. ‘‘STP1 OUT’ L pulses ere genereted by “LD STAT 
AHI" + “BD12"° H (min S ). Pin DD ("STP OUT'') is wired to pin 
BB ("SCHMITT TRIG 2°) for this test. ‘STP! OUT’ pulses are 
received as ‘SCHMITT RIG 2°’ pulses which will clear clock A's 
count register if mode 3 is selected. If an error is detected, 
normal error reporting technique. and error switch register 

tions are used. An ‘“*’’ is typed after each 65,324 loops 
through the test. SW13=1 will inhibit this feature. 


You must wire pins DD and BB of J1 together. 
Jumper W4 must be installed. 


Logic tests (L + S$ at 200) should be run first. 





SEQ 0010 


ESAS eats — ~— : 
0.2.3 LS220 “SCHMITT TRIG 3°’ in, ‘STS OUT’ Tests . SEQ 0011 


This is a special section devoted for testing and providing oh 
LOOPS CaP ILITIES FOR “SCHMITT TRIG 3° AND 3 


When you load and start at location 220, program control is 
trans erred here. ‘'STP1'’ pulses are generated by "LD STAT AH," 
*“BD12"" H (main STP1). Pin dd sate wr Me wee to pin T 
CoSCHMITT RIG 3°‘) oy RIG 3° pu $ aly - us ‘’ST3 OUT’ 
pulses. Pin L ("STS OUT’) is wired to pin. BB HMITT TRI 2"), 
and “SCHMITT TRIG 2°’ will set clock A's’ status lenlags bit 


If an error is detected, normal error reporting Poe. and 
error switch register options are used. *" typed after 
— 65,324 loops through the test. $W13=1 will "Sak it this 
eature. 


You must wire pins DD to T of J1 together, as well as pins L to BB 
of J1 together. Jumpers W4 and W5 must also be installed. 


Tests LS$210 and LS214 should be run first. 


9.2.4 LS224 ‘A EVENT OUT" Test 


This is a special section devoted for testing and providing scope 
Loop capabilities for ‘A EVENT OUT’ 


When you load and start at location 224, program control is 
transferred Bg "A EVENT OUT‘ 7 * pulses are generates by clock A 
over thas. Pin VV (A EVENT OUT’) is wired to pin BB {"*SCHMITT 
TRIG 2°"). ‘SCHMITT TRIG 2°’ pulses will set clock A's CSR bit 7. 
If an error is detected, normal arrepery seg technique. and error 
oyttch register options are used. *"* is typed after each 
5,324 loops throug! the test. SwW13=1 ert inhibit this feature. 


You must wire pins w and BB of J1 together. 
Jumper W4 must also be installed. 


Test LS210 should be run first. 
9.2.5 $230 ‘B EVENT OUT’ Test 


This is a spec tat section devoted for testing and providing scope 
loop capabilities for ‘SB EVENT OUT’ 


When you load and start it location 230, program control is 

brenatorved here. ‘B EVENT OUT’’ pulses are generated by clock B 

over flows. Pin TT (‘SB EVEN NT OUT’) is wired to pin BB (*'SCHMITT 
TRIG 2°’). SCHMITT TRIG 2° pulses will set clock A’ 5, £39 8 ote ¥. 

And error switch register options are used. typed 

after | oece 65,324 loops through the test. SwW13=1 “Will inhibit 
s feature. 


You aust wire pins TT and BB of J1 together. 
Jumper W4 must be installed also. 


Test L$210 should be run first. 





10.0 LPA11 (SYSTEM) DIAGNOSTIC SUMMARY 


DIAGNOSTICS FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
TOTAL PDP-11 SYSTEM, (2) LPA11 SYSTEM; AND, (3) LPA11 OPTIONS. 


LEVEL 1, I$ DESIGNED TO ISOLATE A FAILURE TO THE LPA11 SYSTEM. 
ALL OPTIONS ON THE PDP-11 ARE EXERCISED. 


LEVEL 2 DIAGNOSTICS he gal A FAILURE TO THE per OPTION 

WITHIN THE LPA11. THE LEVEL 2 reg te IS _MD-11-DRL WHEN 

THE USER RUNS DRLPA HE CAN GENERALLY TELL WHICH OPTION” DIAGNOSTIC 
3 sae NEXT. 384. AND m8 C RS MAY 

ALIKE AND DRL Y NOT BE ABLE TO DISTINGUISH BETWEEN THEM. 

ARBITRATION ERRORS WILL NOT BE DETECTED BY THIS DIAGNOSTIC. 


sg THREE eg AID IN DETERMINING IF THE ERROR WAS IN 

ON THE OPTION THE DRLPA SPECIFIED. THE ~~ MAY ‘LOOP’ ON 
THE ERROR. WITHIN LEVEL THREE, THERE ARE TWO GROUPS OF 
DIAGNOSTICS. THE FIRST GROUP REQUIRES NO ‘EXTRA’ WORK BY THE 
USER IN ORDER TO RUN. GROUP .* DIAGNOSTICS DO NOT CHECK 
ARBITRATION, AND REQUIRE EXTRA TIME FOR EXECUTION. THE SECOND 
GROUP (GROUP ‘'B’') REQUIRES THAT THE USER RECONFIGURE THE PODP-11 
ot aa RECONFIGURATION INVOLVES CABLING THE UNIBUS TO THE 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP ‘'B’’ CATAGORY. 
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THE LPA11-KX DIAGNOSTIC KIT 


OPTION 


LPA11-KX 
M8254 
AA11-K 


AR11 


DR11-K 
KW11-K 


LPS-11 


AD11-K 


™8200-YC 





GROUP 


LEVEL 2 
3" 
A 
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WILL INCLUDE: 


DIAG. # 


MD-11-CRLPA 
MD-11-CRLPM 
MD-11-CRLPB 
MD=11=-DZAAC 
MD-11-CRLPC 
MD=11-CRLPD 
MD-11-CRLPE 
MD-11-DZARA 
MD-11-DZARB 
MD-11-DZARC 
MD-11-CRLPF 
MD-11-DZDRG 


' MD-11-CRLPG 


MD-11-DZKWK 
MD-11-CRLPH 
MD-11-CRLPI 
MD~11-CRLPJ 
MD-11-DZLPC 
MD-11-DZLPD 
MD-11-DZLPI 
MD~11-CRLPK 
MD-11-DZADL 
MD-11-CRLPL 
MD-11-CRLPM 


DIAG. TITLE 


LPA11-K SYSTEM EXER. 
M8254 (IPBM) FIELD DIAG. 
LPA/AA11-K DIAG. 
AA11-K DIAG. 

LPA/AR11 DIAG. #1 
LPA/AR11 DIAG. #2 
LPA/AR11 DIAG. #3 

AR11 DIAG. #1 

AR11 DIAG. #2 

AR11 DIAG. #3 
LPA/DR11-K DIAG. 
DR11-K DIAG. 
LPA/KW11-K DIAG. 
KW11-K DIAG. 

LPA/LPS11 DIAG. #1 
LPA/LPS11 DIAG. #2 
LPA/LPS11 DIAG. #3 
LPS11 DIAG. #1 

LPS11 DIAG. #2 

LPS11 DIAG. #3 
LPA/AD11-K DIAG. 
AD11-K DIAG. 
LPA/DMC-11 DIAG. TST I 
LPA/DMC-11 DIAG. TST II 


SEQ 0013 
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| i ee a EE AOC a 
‘ THIS IS A HISTORY FILE OF CRLPG- 


THE ‘’C’’ VERSION SOURCE Y HAS THE B TO C VERSION CHANGES 
THE BIG CHANGE IS IN THE “'CRLPA.MAC’’ FILE THAT HANDLES THE 
NEW VERSION OF THE MICRO-CODE IN THE LPA-11 


THE *‘A"’ rein S a PROBLEMS WHEN DEALING WITH LS204 
AND LS210 T FIRST WAS THAT LS204 FAILED "Te CLEAR 
OCA CH IND ICATED Bi micro~cone ae | OADED 
AND RUNNING sbvtse “A WRESTART I$ a wet DUE T O “INIT >. 

= PROBLEM IS ALSO COMMON 19 is 10 THRU LS2 
THE SECOND PROBLEN 1S THAT LS210 HAD A DestCh FLAW <REALLY ONLY A 
ONE LINE TYPING REVERSAL> AN 1979 R. SHOOP 


HISTORY FILE OF DRLPG-A 


PRODUCT CODE: MAINDEC-11-DZKWK-A 
PRODUCT NAME : KW11-K DIAGNOSTIC TEST 
DATE: FEBRUARY 1976 

MAINTAINER: DIANOSTIC GROUP 

PRODUCT CODE: MAINDEC-11-DRLPG-A 
PRODUCT NAME: LPA/KW11-K_ DIAGNOSTIC TEST 
DATE: JANUARY 1978 

MAINTAINER: DIAGNOSTIC GROUP 


REASON FOR DEVELOPMENT: 


1) TO ENABLE THE OPERATOR TO CHECK OUT THE KW11-K OPTION 
WHEN IT IS ON THE LPA11-KX 1/0 BUS. 
ye 


MADE: 

TOOK OUT gt TESTS FROM ORIGINAL DIAGNOSTIC (I.E. 

INTERRUPTS, TIME DEPENDENT CODE). 

2) REPLACED DIRECT LINKS TO DEVICE WITH MACRO CALLS TO THE 
KMC-11 MICRO CODE. KMC-11 MiCRO CODE (FILE:DRLPX2) HANDLES 

mm ie or ICATIONS WITH THE DEVICE. 

CONTAINS MACRO LINKS BETWEEN PDP-11 CODE AND KMC~11 

MICRO CODE. FILE: DRLPX2 NEEDS TO BE ASSEMBLED WITH 

1! Needs -CTL FILE). 


“hy Re. FILE ano By w 4S LOADED INTO THE KMC~11 


FILE: 


4 
- 


WITH LNKX11 (ONLY). 

FILE: DRLPG.CTL 
THIS FILE EXPLAINS — OF ASSEMBLES AND LINKS. 
IT IS IN TOPS-20 F 





SEQ 0014 
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LNKXI11 VO23 24-OCT-80 9:45 
#CRLPGC .BIN/B: 42000, CRLPGC .MAP=CRLPGC ,CRLPX2/E 


LOAD MAP 
IDENT: 101568 


TRANSFER ADDRESS: 000001 
LOW LIMIT: 042000 
HIGH LIMIT: 046000 


teteeteree 
MODULE LPA 
SECTION ENTRY ADDRESS SIZE 

* 000000 000000 
DRLPX2 042000 
> 042000 000000 


getererenre 


MODULE DRLPX2 

SECTION ENTRY ADDRESS SIZE 

< > 042000 900000 
<ABCODE> 042000 004000 


RUN-TIME: 1 SECONDS 
2k CORE USED 


C 2 


SEQ 0015 





Mike & 
BOIELS 
—No— 


PRR RRR RP MOO 


MAUNA UII SU 
wwe eww we ww DV! 


LPA-KW11K vere ah MD-11-CRLPG-C 
CRLPGC.P11 





Dd 
MACY11 306(1063) 24-0CT-80 09:38 


18-AUG-80 09:15 TABLE OF CONTENTS 
OPERATIONAL SWITCH SETTINGS 
TRAP CATCH 


Basic DEF INITIONS 

APT PARAMETER BLOCK 

COMMON TAGS 

APT MAILBOX-ETABLE 

ERROR POINTER TABLE 

PROGRAM START 

INITIALIZE THE COMMON TAGS 

z PHASE 1 CLOCKS A+B BASIC LOGIC TESTS. 


T1 *TEST La Recta OF CLOCK ADDRESS 

T2 *TEST THAT CLOCK A BUFFER CAN BE WRITT TO 

T3 *TEST THAT CLOCK A BUFFER CAN BE WRITTEN TO A ZER 

T4 *TEST THAT CLOCK A'S STATUS CAN BE WRITTEN AND READ 

5 *TEST THAT CLOCK B'S STATUS REGISTER CAN BE WROTE/READ 

T6 *TEST THAT CLOCK B'S BUFFER yt es CAN BE WROTE/READ 

17 *TEST THAT CLOCK A STATUS REGISTER BIT 15 CAN BE SET AND CLEARED 
T10 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 
T11 *TEST THAT CLOCK A S$ REGISTER BIT 13 CAN BE SET AND CLEARED 
T12 *TEST THAT CLOCK A STATUS REGISTER BIT 9 CAN BE SET AND CLEARED 

T13 *TEST THAT CLOCK A STATUS REGISTER BIT 8 CAN BE SET AND CLEARED 

T14 *TEST THAT CLOCK A STATUS REGISTER BIT 7 CAN BE SET AND CLEARED 

T15 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 

T16 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 

T17 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 

T20 *TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 

T21 *TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 

T22 *TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 

T23 *TEST THAT CLOCK A BUFFER REGISTER BIT 0 CAN BE SET AND CLEARED 

T24 *TEST THAT CLOCK A BUFFER REGISTER BIT 1 CAN BE SET AND CLEARED 

T25 *TEST THAT CLOCK A BUFFER REGISTER BIT 2 CAN BE SET AND CLEARED 

T26 “TEST THAT CLOCK A BUFFER REGISTER BIT 3 CAN BE SET AND CLEARED 

T27 *TEST THAT CLOCK A BUFFER REGISTER BIT 4 CAN BE SET AND CLEARED 

T *TEST THAT CLOCK A BUFFER REGISTER BIT 5 CAN BE SET AND CLEARED 

31 *TEST THAT CLOCK A BUFFER REGISTER BIT 6 CAN BE SET AND CLEARED 

T32 *TEST THAT CLOCK A BUFFER REGISTER BIT 7 CAN BE SET AND CLEARED 

133 *TEST THAT CLOCK A BUFFER REGISTER BIT 8 CAN BE SET AND CLEARED 

T *TEST THAT CLOCK A BUFFER REGISTER BIT 9 CAN B AND 

135 *TEST THAT CLOCK A BUFFER REGISTER BIT 10 CAN BE SET AND CLEARED 
136 *TEST THAT CLOCK A BUFFER REGISTER BIT 11 CAN BE SET AND CLEARED 
13? *TEST THAT CLOCK A BUFFER REGISTER BIT 12 CAN SET AND CLEARED 
T40 *TEST THAT CLOCK A BUFFER REGISTER BIT 15 CAN BE SET AND CLEARED 
T41 *TEST THAT CLOCK A BUFFER REGISTER BIT 14 CAN BE SET AND CLEARED 
T42 *TEST THAT CLOCK A BUFFER REGISTER BIT 15 CAN BE SET AND CLEARED 
143 *TEST THAT CLOCK B STATUS REGISTER BIT 11 CAN BE a! AND or eeee 
T44 *TEST THAT CLOCK B STATUS REGISTER BIT 7 CAN B T AND CLEARED 

145 *TEST THAT CLOCK B STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 

146 *TEST THAT CLOCK B STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 

147 *TEST THAT CLOCK B STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 

T50 *TEST THAT CLOCK B STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 

151 *TEST THAT CLOCK B STATUS - GISTER BIT 2 CAN BE SET AND CLEARED 

152 *TEST THAT CLOCK B STATUS R ft ai } i BE SET AND CLEARED 


l BE SET AND CLEARED 


SEQ 0016 


E 
LPA-kW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 26-OCT-80" 09:38 
CRLPGC.P11  18-AUG-80 09:15 TABLE OF CONTENTS SEO 0017 
(6) 154s *TEST THAT CLOCK B BUFFER REGISTER BIT 0 CAN BE SET AND CLEARED 
(6) 15S —s-®TEST THAT CLOCK ® BUFFER REGISTER BIT 1 CAN BE SET AND CLEARED 
(6) 156 TEST THAT CLOCK B BUFFER REGISTER BIT @ CAN BE SET AND CLEARED 
(6) 15? —« ®TEST THAT CLOCK B BUFFER REGISTER BIT $ CAN BE SET AND CLEARED 
(6) 160 —«® TEST THAT CLOCK ® BUFFER REGISTER BIT 4 CAN BE SET AND CLEARED 
(6) 161s» ®TEST THAT CLOCK B BUFFER REGISTER BIT 5 CAN BE SET AND CLEARED | 
(6) 62 STEST THAT CLOCK B BUFFER REGISTER BIT 6 CAN BE SET AND CLEARED 
(8) 163s» ®TEST THAT CLOCK B BUFFER REGISTER BIT 7 CAN BE SET AND CLEARED | 
® 
1780 * PHASE 2 ADVANCED BASIC LOGIC TESTS | 
® 
1789 164 - ®TEST THAT CLOCK A'S COUNT REGISTER IS CLEAR 
1812 1éS _sSTEST CLOCK A'S COUNT REGISTER WITH 125352 PATTERN 
0 166 so WTEST CLOCK A'S COUNT REGISTER WITH 052525 PATTERN 
1874 16? so ® TEST ~THAT CLOCK B'S TER 1S CLEAR 
1898 170 —s® TEST CLOCK B'S COUNT REG ITH 125 PATTERN 
1926 171 —-#TEST CLOCK B'S COUNT REGISTER WITH 252 PATTERN 
1968 172 sTEST THE SETTING OF MAINTENANCE STP1 IN CLOCK A BIT 15 To, SET 
1998 173 STEST THAT BITOO IN CLOCK A STATUS REG. WILL SET WHEN BITT3 AND MAIN. STP1 
2034 174 #TEST THAT CLOCK A WILL INCREMENT - MODE 0 - RATE STP1 FIRST COUNT TEST 
2083 175 «#TEST THE ABILITY OF CLOCK A TO COUNT FROM ZERO TO OVERFLOW USING M STP1'S 
. 7 . 
2131 * PHASE 3 CLOCK A COUNT FUNCTION TESTS 
* 
5144 176 —«#TEST THAT CLOCK A OVERFLOW WILL OCCUR . 
5190 177 TEST IN CLOCK A THAT OVERFLOW IN MODE 0 CAUSE CLEARING OF "ENB CNTR" F/F 
5281 1100 ®TEST THE ABILITY OF CLOCK A TO COUNT AT 1MHZ RATE PART 1 | 
582 Seer ee eee ty OF ELOEK ATO COUmT AT IOOKNT RATE PART. 1 
583 1102s ®TEST THE ABILITY OF CLOCK A T 10KHZ RATE PART 1 
5984 1103. ®TEST THE ABILITY OF CLOCK A TO COUNT AT 1KHZ RATE PART 1 
5985 1104 ®TEST THE ABILITY OF CLOCK A TO COUNT AT 100HZ RATE PART 1 
2286 T105 -eTEST THE ABILITY OF CLOCK A TO COUNT AT LINE-FREQ RATE PART 1 
5297 1106 —«®TEST THAT CLOCK A DOESN'T COUNT WHEN NO RATE IS SELECTED | 
5339 1107s ®TEST THAT CLOCK A'S COUNT REG ISN'T LOADED WHEN CLOCK A IS ENABLED 
5379 T110 *TEST THAT CLOCK A IN MODE 1 DOES NOT CLEAR ENABLE ON OVERFLOW 
5218 T111 STEST THAT ACLOCK A "BUFFER TO COUNT REG” DOESN'T TAKE PLACE ON A MODE 2 OVERFLOW 
5467 T112  *TEST THAT CLOCK A MODE 2 + MAINTENANCE ST2 SET MODE FLG 
5548 T11g STEST THAT PATTERN 00525 CAN BE KFERRED BETWEEN A'S COUNT BUFFER REGS 
5549 T114 TEST THAT PATTERN 125252 CAN BE XFERRED BETWEEN A'S COUNT-BUFFE 
5593 1118 ®TEST THAT ISTER ISN'T CLEARED IN MODE 1 WHEN STP2 TS ENERATED 
5594 1116 STEST THAT A'S COUNT REGISTER ISN'T CLEARED IN MODE 2 WHEN STP2 1S GENERATED 
5607 1117 ®TEST THAT MODE 3 + "STP2' CLEARS A'S COUNT REGISTER. 
5651 1120  *TEST THE AUTODECREMENT FEATURE OF CLOCK A'S BUFFER 
2724 1121s #TEST THAT CLOCK A'S 1 MHZ CLK CAN BE DISABLED | 
t 
2757 * PHASE 4 CLOCK B COUNT FUNCTION TESTS | 
% 
5776 1122. *TEST THAT CLOCK 8 WILL COUNT ONCE FIRST CLOCK B COUNT | 
5827 1123s eTEST THE ABILITY IF CLOCK B TO COUNT FROM ZERO TO OVERFLOW 
5893 1124 eTEST THAT CLOCK @ CAN GENERATE AN OVERFLOW | 
5943 1125. eTEST THE INIT. ABILITY OF CLOCK B'S COU : | 
1196 se TEST THAT CLOCK B DOESN'T COUNT WHEN NO RATE IS SELECTED | 
8 1127s eTEST THE ABILITY OF CLOCK & TO COUNT AT 1MH 1 | 
9 1130 ®TEST THE ABILITY OF CLOCK B TO COUNT AT 100KHZ PART 1 | 
50 1131 eTEST THE ABILITY OF CLOCK B TO COUNT AT 10KHZ PART 1 | 
51 1132. *TEST THE ABILITY OF CLOCK B TO COUNT AT 1KHZ PART 1 | 
| 
! 
| 
} 
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1133 
1134 
T135 
* 


F 
24-0CT-80 09:38 
CON 
*TEST THE ABILITY OF CLOCK B COUNT a 100HZ PART 1 


LIT 
*TEST THE ABILITY OF CLOCK B TO COUNT AT LINE-FREQ PART 1 
*TEST THE ‘FEED B TO A’ 24 BIT COUNTER FEATURE OF CLOCKS A + B 


* PHASE 6 CLOCK A*B ADVANCE TESTING 
* 


*TEST THAT THE TRAILING EDGE OF STP1 WILL INCR. COUNTER 
*TEST CLOCK A‘S 100KHZ DIVIDER 


*TEST CLOCK B'S 100HZ DIVIDER 


END OF PASS ROUTINE 
a 
* SPECIAL 1/0 SIGNAL TESTS 


“STP2 OUT'’ TO ‘'SCHMITT TRIG 1 IN" TESTS 
“STP1 OUT’’ TO ‘SCHMITT TRIG 2°’ H TESTS 
“SCHMITT TRIG a “ST3 OUT’’ TESTS 


"B EVENT OUT"’ TEST 


*SYSMAC ROUTINES 


BINARY TO OCTAL (ASCII) AND TYPE 
ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SCOPE HANDLER ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 

TTY INPUT ROUTINE 


TYPE 


ROUTINE 
APT COMMUNICATIONS ROUTINE 
POWER DOWN AND UP ROUTINES 
TRAP DECODER 


TRAP TABLE 


SEQ 0018 


Lenautes DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 6, 738 PAGE 1 
CRLPAB .MAC 26-SEP-80 13:48 SEQ 0019 
-REM C 
CRLPAB.MAC 
WELCOME, THIS DIAGNOSTIC IS ONE IN A SERIES OF DIAGNOSTIC 
DESIGNED IN ORDER TO AID YOU IN TESTING THE LPA=11XX try 
I HOPE THAT YOU HAVE READ THE DOCUMENTATION SECTION OF THIS 
DIAGNOSTIC. IF YOU HAVE,YOU KNOW ABOUT ALL OF THE DIAGNOSTICS 
THAT ARE AVAILIBLE FOR TESTING THE LPA SYSTEM. 


GOOD LUCK ! 


C 
-GLOBL DRLPX2 
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-TITLE MMAST.MAC 
-IDENT /4.01/ 


LPA11-K MICRO CODE 


CHARLES A. SAMUELSON 
NOVEMBER, 1977 


-TITLE DMAST.MAC 
-IDENT = /4.01/ 


LPA11-K MICRO CODE 


CHARLES A. SAMUELSON 
; NOVEMBER, 1977 
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RLPGC "it 18-AUG-80 09:15 SEQ 0021 
“ne -REM ; 

171 THIS IS A_LIST OF TESTS DELETED FROM THIS DIAGNOSTIC. 

7 THESE TEST COULD NOT BE DONE THROUGH THE LPA-11. 

174 TEST THE LOW BYTE OPERATION OF CLOCK A'S STATUS REGISTER 

175 TEST THE HIGH BYTE OPERATION OF A‘S STATUS REGISTER 

176 TEST THE LOW BYTE OPERATION OF B'S STATUS REGISTER 

177 TEST a 4 as BYTE OPERATION OF B'STATUS REGISTER 

178 TEST THAT INIT CLEARS STATUS REGISTER A 

179 TEST THAT INIT CLEARS BUFFER REGISTER A 

180 TEST THAT INIT CLEARS STATUS REGISTER B 

181 TEST THAT INIT CLEARS BUFFER REGISTER B 

182 TEST THAT A'S COUNT REGISTER iS CLEARED BY INIT 

183 TEST THAT CLOCK A WILL INTR. AND TO THE RIGHT VECTOR 

184 TEST THAT CLOCK : WILL INTR. WHEN CPU PSW = CLK INTR LEV -1 
185 TEST THAT CLOCK A WILL NOT te WHEN CPU PSW = CLK INTR LEVEL 
186 TEST THAT ST1 WILL CAUSE CLOCK A TO INTER. 

187 TEST THAT CLOCK A OVERFLOW WILL CAUSE AN INTR. 

188 TEST THAT A CLOCK A COUNTER — WILL CAUSES AN_INTR. 

189 TEST THAT CLOCK B WILL INTR. AND TO THE RIGHT VECTOR 


& 
~ 
mm 
n" 
—_ 
“4 
= 
re 
poy 


CLOCK B WILL INTR. WHEN CPU PSW=CLK INTR LEV -1 


ee ee ee ee ee ee ee a at at et att et 


1 

191 TEST THAT CLOCK B WILL NOT INTR. WHEN cPU PSW=CLK INTR LEVEL 
192 TEST THAT A CLOCKB OVERFLOW WILL CAUSE AN INTR. 
193 TEST CLOCK A'S REPEATIBILITY AT 1MHZ RATE 

194 TEST CLOCK A°S REPEATIBILITY AT 100KHZ RATE 

195 TEST CLOCK A°S REPEATIBILITY AT 10KHZ RATE 

196 TEST CLOCK A'S REPEATIBILITY AT 1KHZ RATE 

197 TEST CLOCK A'’S REPEATIBILITY AT 100HZ RATE 

198 TEST CLOCK B'S REPEATIBILITY AT 1MHZ RATE 

199 TEST CLOCK B'S REPEATIBILITY AT 100KHZ RATE 

200 TEST CLOCK B'S REPEATIBILIIY AT 10KHZ RATE 

201 TEST CLOCK B'S REPEATIBILITY AT 1KHZ RATE 

202 TEST CLOCK B'S REPEATIBILITY AT 100HZ RATE 

203 TEST THAT INIT’ CLEARS B'S 100KHZ DIVIDE BY 10 CHIPS 
205 

206 

207 .TITLE LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C 

(1) [*COPYRIGHT (C) 1980 

(1) S*DIGITAL EQUIPMENT CORP. 

(1) ; MAYNARD, MASS. 01754 

() :SPROGRAM BY EDWARD C. BADGER REV B BY R. SHOOP 
(1) ‘STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
(1 ; *PACKAGE (MAINDEC~11-DZQAC-C3), JAN 19, 1977. 
(1) 000001 itn =1 
1208 a BTL OPERATIONAL SWITCH SETTINGS 

s@ 

(1) 3# SWITCH USE 

(1) 38 eounce weer een anew ener ene 
(1) ie 15 HALT ON ERROR 

(1) ie 14 LOOP ON TEST 

(1) ie 13 TNNIBIT ERROR TYPEOUTS 
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001100 


ee a td a = oP) ot ot os SS a 2 SS os a SS 


ee ee er a ee es ae es ee eee ee es SS SS YS YY YY YY WH OOOO UF UN "OY YMYeyryevww 


000200 
177776 
177774 


eee ce ec ce ee ee ee ae ed ed td td to od 
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MACY11 306(1063) 24-0CT-80 09:38 PAGE 3-1 
OPERATIONAL SWITCH SETTINGS 


se 10 BELL ON poe 

be 9 LOOP ON ERR 

s@ 8 LOOP ON Test. IN SWR<7:0> 
-SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘',#2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 


ER 
:*LOCATION 5 Coreen 0 TO CATCH IMPROPERLY LOADED VECTORS 


217 
DISPREG: .WORD 0 3 ;SOFTWARE DISPLAY REGISTER 
SWREG: te 0 3:SOFTWARE SWITCH REGISTER 
= 


JMP @4START 


JMP @#RSTART 


JMP . @#LS230 


360 TO STARTING ADDRESS OF PROGRAM 


3:GO TO RESTART ADDRESS. 
3GO TO SPECIAL TEST #1. 
3GO TO SPECIAL TEST #2. 
3G0 TO SPECIAL TEST #3. 
GO TO SPECIAL TEST #4. 
3G0 TO SPECIAL TEST #5. 


-SBTTL BASIC DEFINITIONS 
a he OF THE STACK POINTER *#* 1100 *##¢ 


STACK= 

-EQUIV EMT,ERROR s;BASIC DEFINITION OF ERROR CALL 
“EQUIV I0T, SCOPE ::BASIC DEFINITION OF SCOPE CALL 
;*MISCELLANEOUS DEFINITIONS 

T= 11 ::CODE FOR HORIZONTAL TAB 

LF= 12 +: CODE FOR LINE F 

CR= 15 33 CODE FOR CARRIAGE RETU 

CRLF= 200 [CODE FOR CARRIAGE Re TURme LINE FEED 

PS= 177776 ::PROCESSOR STATUS WORD 

.EQUIV PS,PSW 

STKLMT= 177774 :3STACK LIMIT REGISTER 

PIRQG= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 + HARDWARE SWITCH REGISTER 

DDISP= 177570 S:HARDWARE DISPLAY REGISTER 
 ®GENERAL PURPOSE REGISTER DEFINITIONS 

RO= 20 3;GENERAL REGISTER 

Riz <1 GENERAL REGISTER 

R2= 12 >:GENERAL REGISTER 

R3= 13 S:GENERAL REGISTER 

R4= 14 GENERAL REGISTER 

RS= 15 >:GENERAL REGISTER 

R6= 16 GENERAL REGISTER 

R7= 17 GENERAL REGISTER 

SP= 16. S:STACK POINTE 

PC= 17 >: PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 

PRO= 0 PRIORITY LEVEL 0 

PRiz 40 ::PRIORITY LEVEL 1 


SEQ 0022 


a on + Se SS ES — 
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MACY11 306(1063) 
BASIC DEFINITION 


100 3ento 
140 at + 


RI 
RI 
00 as RIORI 
40 PRIORI 
00 : PRIORI 


0 ;;PRIORITY LE 


LEVEL ¢ 
LEVEL 
tevet 4 
LEVEL 5 
LEVEL 8 
VEL 


se'"SWITCH REGISTER’ SWITCH DEFINITIONS 
$wi5= 100000 


-_ 
—_ 
_ 
~ 
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SEQ 0023 
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42 4 


0046 
000046 022414 
000052 

000052 
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MACY11 is (1063 

BASIC DEFINITIONS 

-EQUIV B1T0S,B1TS 

EQUIV B1T04,B114 

-EQUIV B1T03,B81T3 

-EQUIV B1T02,B1T2 

-EQUIV 81T01,B81T1 

“EQUIV B1T00,B1T0 

;*BASIC “CPU TRAP VECTOR ADDRESSES 

ERRVEC= 4 TIME OUT AND OTHER ERRORS 

RESVEEs 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVECS14 tT BIT 

TRIVEC= 14 S:TRACE TRAP 
BPTVEC= 14 S;BREAKPOINT TRAP (BPT 

1OTVEC= 20 ‘ INPUT/OUTPUT TRAP oT) #*SCOPEe* 
PWRVEC= 24 POWER FAIL 

EMTVEC= 30 i SEMULATOR TRAP (EMT) *#ERROR** 
TRAPVEC=34 :: TRAP’ TRAP 

TKVEC= 60 TTY KEYBOARD VECTOR 

PVEC= ::TTY PRINTER VECTO 
PIROVEC=240 :PROGRAM INTERRUPT * REQUEST VECTOR 


-SBTTL ACT11 HOOKS 


FRRAAARAAAAAAAAERAAAAAA AREER AA AAAAAARAAAAAERRARAAEAAERE REA AAAEE TES 


HOOKS wroureee BY ACT11 
$SVPC=. sSAVE PC 


-WORD 0 2 22)SET LOC. Pe TO ZERO 
-=$SVPC 3; RESTORE P 


-=1000 
-SBTTL APT PARAMETER BLOCK 


peeeeeeeeeeeeeeereeeeeeeeeeeredenteeeeeeeteeeeeeneeereeeeeeeees 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
[eRReeeeeeKeeeeeeeeeeeeeeeeeeeeeeeeeeeeenteeeeeereeeeneeeeneeeet 
- $X=. +3 SAVE CURRENT LOCATION 
.=24 ;SET POWER FA ~ TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
244 33;POINT TO APT cyte ADDRESS PNTR. 
SAPTHDR ;;POINT TO APT HEADER BLOCK 
.=.$X | 3;RESET LOCATION COUNTER 
WTTTTITITITTTITIT TTL ETL LLL LLL LLL Ltt tht 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
SINTERFACE SPEC. 


=46 
SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


SEQ 0024 


SHIBTS: . 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
DR: . SMAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
STSTA: .WOR é 3;RUN TIM OF LONGEST TEST 
SPASTM: .WORD 120 3;RUN TIME IN SECS. OF 1ST PASS = 1 UNIT (QUICK VERIFY) 
ITM: . 120 3; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


ee ee ae tt 
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(1) 001012 000052 
1278 





MACY11 zeatiee) oo * 738 PAGE 3-4 
APT PARAMETER B 


«WORD S$ETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS) 


SEQ 0025 





N 
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CRLPGC.P11 18-AUG-B0 09: seo 0026 | 
1279 .SBTTL COMMON TAGS | 
(2) FRRAAAAAAAHEAATAAAAAA HAKATA AAAAAAAATAAAAAAAAAAAAAAHA AAA A TEATS 
(1) TRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
a TeUSED IN THE PROGRAR. 
a) 001100 .=1100 
(1) 001100 SCMTAG: ;START OF COMMON TAGS 
(1) 001100 000000 WORD 0 
(1) 901192 909 STSTNM: [BYTE 0 ;:CONTAINS THE TEST NUMBER 
(1) 001103 000 SERFLG: . 0 S CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: | 0 SICONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: :WORD 0 SSCONTAINS SCOPE LOOP ADDRES 
(1) 001110 000000 SLPERR: :WORD 0 SICONTAINS SCOPE RETURN FOR ERR . 
(1) 001112 000000 SERTTL: .WORD 0 SECONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMG: BYTE 0 SECONTAINS ITEM CON 
(1) 001115 001 SERMAX: (BYTE 1 SECONTAINS MAX. ERROR 
(1) 001116 000000 SERRPC: WORD 0 SECONTAINS PC OF LAST gRnoR iNstaUCTION 
(1) 001120 000000 SGDADR: {WORD 0 SECONTAINS ADDRE 
(1) 001122 000000 SBDADR: {WORD 0 ST CONTAINS ADDRESS OF "GAD" DATA, 
(1) 001124 000000 SGDDAT: .WORD 0 : CONTAINS 000! 
1) 901186 900000 SBDDAT: WORD 0 SCONTAINS 'BAD' DATA 
(1) 001130 000000 "WORD 0 STRESERVED=-NOT TO BE USED 
(1) 001132 000000 “WORD 0 
(1) 001134 000 SAUTOB: [BYTE 0 ; AUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 STINTERRUPT MODE INDICATOR 
(1) 001136 000000 “WORD 0 
> 901140 177570 SUR: [WORD DSR {ADDRESS OF SUITCH REGISTER 
(1) 001142 177570 DISPLAY: .WORD DDISP TTADDRESS OF DISPLAY REGISTER 
(1) 001146 177560 $1kS: 177560 :iTTY KBD STATUS 
(1) 001146 177562 $1KB: 177562 TITTY KBD 
(1) 001150 1775 SIPS: 177564 ii TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 :ETTY PRINTER BUFFER REG. ADDR 
(1) 001154 $SNULL: .BYTE 0- SECONTAINS NULL CHARACTER FOR 
(1) 001155 002 SFILLS: .BY 2 s:CONTAINS # OF cLLeS CHARACTERS REQUIRED 
(1) 001156 «012 SFILLC: .BYTE 12 SEINSERT FILL CHARS. AFTER A "LINE FEED" 
(1) 001157 000 STPFLG: BYTE 0 EIUTERMINAL AVAILABLE” FLAG (BIT<O7>=0=VES) 
(1) 001160 000000 SREGAD: 0 SECONTAINS THE ADDRESS FROM 
(1) SEAT CH  CSREGO) WAS OBTAINED 
(3) 001162 000000 SREGO: .WORD 0 3: CONTAINS CCSREGAD) +0) 
(3) 001164 000000 $STMPO: ‘WORD 0 TTUSER DEFINED 
(1) 001166 000000 SESCAPE:0 STESCAPE ON ERROR ADDRESS 
(1) 001170 177607 000377 SELL: .ASCIZ <207><377><377> 3; CODE FOR BELL 
(1) 001% 077 SQUES: “ASCII /2/ SQUESTION MARK 
(1) 001175 015 SCRLF: .ASCII <15> i CARRIAGE, RETURN 
(1) 001176 000012 SLF: | “ASCIZ. <12> FEED 
(2) POTITISTITI Ti Titi tii tti ttt 
2) ; *SBTTL APT MAILBOX-ETABLE 
tg) F SSHAAAAAAARAARAAAAAAAAAAAAAAAAAAAAAAAAHAAAATAAAAAAAAAAAAAAAAEAEEAEEE 
(2) . 
(3) 001 SAAIL: ;APT MAILBOX 
(3) 001 SMSGTY: .WORD ANSGTY MESSAGE TYPE CODE 
(3) 0012 $FATAL: {WORD AFATAL ::FATAL ERROR NUMBER 
2) 001204 STESTN: {WORD ATESTN ::TEST NUMBER 
(2) 001 ASS: [WORD APASS ::PASS COUNT 


LPG-C MACY11 s06(1068) | 24-0CT-80" 03:38 PAGE 3-6 


LPA-KW11K DIAGNOSTIC MD-11-CR 
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CRLPGC.P11—s 1 -80 09 
001210 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001 i3 000000 SUNIT: .WORD AUNIT ;31/0 oe§ R 
001214 000000 SMSGAD: .WORD AMSGAD ;:MESSAGE ADDRESS 
001216 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
001 20 SETABLE: S:APT ENVIRONMENT TABLE 
001220 000 SENV:  .BYTE AENV ;;ENVIRONMENT BYTE 
001221 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 
001222 SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001224 000000 SUSWR: .WORD AUSWR  ;;USER SWITCHE 
001226 SCPUOP: .WORD ACPUOP ;:CPU TYPE,OPTIONS 
3t BITS 15-11=CPU TYPE 
‘; 11/04201,11/05202,11/20203,11/40=04,11/45=05 
* 11/70206,PD@=07,0=10 
ie BIT 10=REAL TIME CLOCK 
3* 4 BIT 9=FLOATING POINT PROCESSOR 
:f BIT S8=MEMORY MANAGEMENT 
001230 000 $MAMS1:..BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
001231 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLKA1 
38 MEM.TYPE BYTE <= (HIGH BYTE) 
3* 900 NSEC CORE=001 
3* 300 NSEC BIPOLAR=002 
:t 500 NSEC MOS=003 
001232. 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS, BLKA1 
t MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 
001234 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 


001235 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK#2 
1236 000000 SMADR2: .WORD AMADR >;MEM.LAST ADDRESS, BLK#2 
000 SMAMSS: 7:HIGH ADDRESS ,M.S.BYT 
7 MEM. TYPE, LkKa3 
242 " : WORD 3 ;MEM.LAST ADDRESS ,BLK#3 
001244 94 SAAMS4: gn AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
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EE 
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1 
001252 
001254 
001 
001260 WOR 
001262 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORDA2 
001264 000000 -WORD ADDWO ;;DEVICE DESCRIPTOR WORD# 
001266 000000 SDDW1: .WORD ADDWi ;;DEVICE DESCRIPTOR WORD#1 
001270 ai $DDW «WORD: ADDW s;DEVICE DESCRIPTOR WORD# 
001272 $DDW WORD ADDW 7 DEVICE DESCRIPTOR WORD# ; 
001274 000000 $DDW4: .WORD AD ;;DEVICE DESCRIPTOR WORD#4 
poets 000000 $ODW5: .WORD ADDWS  ;;DEVICE DESCRIPTOR WORD#S 
001 000000 WORD ADDW s;DEVICE DESCRIPTOR WORD#6 
001302 000000 $DDW -WORD ADDW ;;DEVICE DESCRIPTOR WORD? 
001304 000000 $DDW8: .WORD ADDWE ;;DEVICE DESCRIPTOR WORDAS 
bot 000000 DDW9: .WORD ADDW9  ;;DEVICE DESCRIPTOR WORD#D 

1310 000000 SDDW10: .WORD ADDWIO ;;DEVICE DESCRIPTOR WORD#10 
sath 000000 SDDW11: .WORD ADDWI1 ;;DEVICE DESCRIPTOR WORD#11 
ot 14 000000 SDDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORD) 

1316 000000 SDDW15: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORDA'1 
001320 000000 SDDW14: .WORD ADDWI4 ;;DEVICE DESCRIPTOR WORD#14 
001322 000000 SDDW15: .WORD ADDWIS ;;DEVICE DESCRIPTOR WORDA15 
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~ 
~ 


: ; 001324 SETEND: 
(3) 

(3) 001324 170404 ASR: 
3) 001326 170406 ABR: 
3) 0013 170430 ACR: 
(3) 001332 170432 BSR: 
(3) 001334 170434 BBR: 
3) 001336 170436 BCR: 
(3) 001340 000344 AVECT: 
os 001342 000346 AVECP2: 
(3) 001344 000364 BVECT: 
(3) 001346 000366 BVECT2: 
(3) 001350 000006 APRITY: 
(3) 001352 000006 BPRITY: 
3} 001354 000000 STMDAT: 
(3) 


LPA-KW11K me MD-11-CRLPG-C MACY11 506 (1063) 
8 APT MAILBOX-E TABLE 


170404 
170406 
170450 


170432 
170434 
170436 


344 
346 


364 
366 


6 
6 
0 





ff 
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;/CLOCK A STATUS REGISTER. 
:/CLOCK A BUFFER REGISTER. 
3/CL CK A COUNT REGISTER. 
;/CLOCK B STATUS REGISTER. 
:/CLOCK B BUFFER REGISTER. 
s/CLOCK B COUNT REGISTER. 


;/CLOCK A INTR. VECTOR ADDR. 
:/CLOCK A INTR. STATUS WORD. 


;/CLOCK B INTR. VECTOR ADDR. 
;/CLOCK B INTR. STATUS WORD. 


;/PRIORITY LEVEL OF CLOCK A. 
;/PRIORITY LEVEL OF CLOCK B. 


‘ 


SEQ 0028 


Cl 
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CRLPGC .P11 18-AUG-80 09:15 ERROR POINTER TABL SEQ 0029 
$33 -SBTTL ERROR POINTER TABLE . 
(1) z*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. ‘ 
(1) :* THE INFORMATION IS OBTAINED BY USING THE INDEX a F N 
(1) S*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE ha IS PERTINENT. 
(1) + *NOT E1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

Hh 3 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) 3* EM :;POINTS TO THE — MESSAGE 
(1) 3° DH :;POINTS TO THE D HEADER 
(1) ;* DT ::POINTS TO THE DA 1A 
He 3* DF ::POINTS TO THE DATA FORMAT 
(1) ; 
(1) 001356 SERRTB: . 
1284 
f+ +4 sITEM 1 
1287 001356 027166 —M1 :CLOCK A SR FUNCTION ERROR 
1288 001360 030053 DH1 SERRPC ASR WAS S/ 
1289 001362 030666 DT1 *$ERRPC, ASR. SBDDAT,$GDDAT 
i 34 001364 031070 DFO 3 ALL NUMBERS ARE IN OCTAL FORM 
1291 
1e3e :1TEM 2 
1294 001366 027221 EM2 ;CLOCKA SR DATA ERROR 
1295 001370 030053 DH1 > ERRP C ASR WAS S/ 
1296 001372 030666 DT1 *$ERRPC, ASR, SBDDAT ,SGDDAT 
4 001374 031070 DFO 3s ALL NUMBERS ARE IN OCTAL FORM 
1298 
1299 sITEM (3 
1300 
1301 001376 027250 , EM3 sCLOCKA BR DATA ERROR 
1302 001400 030111 DH3 RRPC ABR WAS $/B 
1303 001402 030700 DT3 * SERRPC, ABR, SBDDAT. SGDDAT 
it 001404 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 
1305 
4 sITEM 4 
1308 001406 027277 EMS ;CLOCKA CR DATA —_ 
1309 001410 030147 DH4 *ERRPC ACR WAS S/B 
1310 001412 030712 DT4 7 SERRPC,ACR,SBDDAT ,SGDDAT 
it 001414 031070 DFO 3 ALL NUMBERS ARE IN OCTAL FORM 
1312 
1314 _ 
1315 001416 027326 EMS ;CLOCK B SR DATA oe 
1316 001420 030205 DHS TERR PC BSR WAS S/B 
1317 001422 030724 DT5 *$ERRPC, BSR, SBDDAT , SGDDAT 
a 001424 031070 DFO SALL NUMBERS ARE IN OCTAL FORM 
1319 





or 


7 ia ; 
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CRLPGC.P11  18-AUG-80 09:15 ERROR POINTER TABL SEQ 0030 
1320 “ITEM 6 
132e 001426 027355 EM6 :CLOCK 8 BR DATA ERROR 
1323 001430 030243 DH6 SERRPC BBR WAS 
1324 001432 030736 DT6 | SERRPC,BBR, SBDDAT, $GDDAT 
1325 001434 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 
1326 a 
1327 sI1TEM. 7 
1328 
1329 027404 EM7 SCLOCK B CR DATA ERROR 
1330 001440 030301 DH7 SERRPC BCR WAS $/8 
1331 001442 030750 DT7 | SERRPC BCR, SBDDAT , SGDDAT 
1332 001444 031070 DFO “ALL NUMBERS ARE IN OCTAL FORM 
1333 
1334 sITEM 10 
1336 001446 027433 EM10 sDUAL ADDRESS ERROR 
1337 001450 030337 DH10 “ERROR GOOD BAD GOOD DATA READ FROM 
1338 : ADDR ADDR DATA DUAL ADDRESS 
1339 001452 030762 DT10 :SERRPC, $GDADR, SBDADR, SGDDAT , SBDDAT 
1340 001454 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 
1341 
1342 :1TEM 11 
1344 001456 027460 M11 :CLOCK A COUNT ERROR 
1345 001460 030147 DH4 “ERRPC ACR WAS S/ 
1346 001462 030712 DT4 ‘$ERRPC, ACR, SBDDAT, SGDDAT 
1347 001464 031070 DFO ‘ALL NUMBERS ARE IN OCTAL FORM 
1348 
Ho :ITEM =12 
1351 001466 027507 ; EM12 sCLOCK A COUNT FUNCTION ERROR 
1352 001470 030476 DH12 SERRPC ASR 
1353 001472 030776 DT12 SERRPC, ASR 
1354 001474 031070 DFO ‘ALL NUMBERS ARE IN OCTAL FORM 
1355 
1356 SITEM 13 
1358 001476 031070 DFO sERROR 13 DOES NOT EXSIST. 
1359 001500 031070 DFO :1T WOULD BE BAD LUCK. 
1360 001502 031070 DFO 
1361 001504 031070 DFO 
1362 
1365 s1TEM 16 
1365 001506 027547 EM14 SCLOCK B COUNT FUNCTION ERROR : 
1366 001510 030515 DH14 SERRPC BSR 
1367 001512 031004 D114 S$ERRPC, BSR 
1368 001514 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 


—s 
$= 
ow 





, 
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CRLPGC.P11 18-AUG-80 09:15 ERROR POINTER TABLE "es _ SEQ 0031 
1370 ITEM = 15 
1378 001516 027607 EM15 :CLOCK B COUNT ERROR 
1373 001520 030301 DH7 ERR PC CSR WAS S/B 
1374 001522 030750 DT7 *$ERRPC, BCR, SBDDAT SGDDAT 
1375 001524 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 
1376 
144 sITEM =16 
1379 001526 027636 EM16 : CLOCK A INTERRUPT ERROR 
1380 001530 030476 DH12 SERRP Asa 
1381 001532 030776 DT12 CERRPC, A 
1382 001534 031070 DFO ALL NURBERS ARE IN OCTAL FORM 
1383 
ieee ITEM =17 e 
1386 001536 027671 —M17 : CLOCK B INTERRUPT ERROR 
1387 001540 030515 DH14 sERRPC BSR 
1388 001542 031004 DT14 ‘CERRPC, BSR 
1389 001544 031070 DFO 
1390 
P44 s1TEM =. 20 
1393 001546 027724 EM20 sCLOCK- A REPEATABILITY ERROR 
1394 001550 030533 DH20 SERROR ASR 2ND CNT 1ST CNT 
1395 001552 030666 pT1 *$ERRPC, ASR, SBDDAT, SGDDAT 
1396 001554 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 
1397 
1398 :1TEM 21 
1399 
1400 001556 027460 —M11 :CLOCK A COUNT ERROR 
1401 001560 030147 DH4 TERROR ASR  2ND CNT 1ST CNT 
1402 001562 031012 0T21 S$ERRPC, ASR, SBDDAT, SGDDAT 
1405 001564 031070 DFO ‘ALL NUMBERS ARE IN OCTAL FORM 
1404 
re +4 s1TEM =22 
1407 001566 027460 —M11 :CLOCK A COUNT ERROR 
1408 001570 030147 DH4 SERRPC ASR WAS S/B 
1409 001572 031024 D122 *$ERRPC, ACR, SBDDAT, STMPO 
1410 001574 031070 DFO “ALL NUMBERS ARE IN OCTAL FORM 
1411 . 
1412 ZITEM = 23 
1414 001576 027763 EM23 :CLOCK B REPEATABILITY ERROR 
1415 001600 030575 DH23 SERROR ASR  2NDCNT ISTCNT 
1416 001602 030666 pT1 *$ERRPC, ASR, SBDDAT, SGDDAT 
417 001604 031070 DFO TALL NUMBERS ARE IN OCTAL FORM 
1418 
1419 ITEM = 246 





or 





eee € | ead 
LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 09:38 PAGE 3-11 
CRLPGC.P11 18-AUG-80 09:15 ERROR POINTER TABLE SEQ 0032 
1420 
1421 001606 027607 —EM15 ;CLOCK B COUNT ERROR 
1422 001610 030301 DH7 sERRPC BCR WA $/ 
1423 001612 031036 DT24 :SERRPC, BCR, SGDDAT, STMPO 
nt 001614 031070 DFO sALL NUMBERS ARE IN OCTAL FORM 
1425 
ks | ITEM = 25 
1428 001616 027607 —EM15 ;CLOCK 8 COUNT ERROR 
1429 001620 030301 DH7 sERRPC BCR WAS $/8 
1430 001622 031050 pT25 7 SERRPC,BCR,SBDDAT ,STMPO 
“i 001624 031070 DFO sALL NUMBERS ARE IN OCTAL FORM 
1432 
He s1TEM = 26 
1435 001626 030022 EM26 ;CLOCK ADDRESSING ERRROR 
1436 001630 030637 DH26 sERRPC CLOCK ADDR. ; 
1437 001632 031062 D126 sSERRPC,ST#?0 
aT 001634 031070 DFO ;ALL NUMBERS ARE IN OCTAL FORM 
1439 3 
(1) zsADDRESS OF KMC-11 OF LPA-11 THE ADDR FOR KMADO MAY BE 
(1) 3 CHANGED BY THE USER TO REFLECT 
(1) : A DIFFERENT KMC-11 ADDR. THE 
(1) s REST OF THE ADDRESSES WILL 
He : BE CHANGED BY THE PROGRAM. 
(1) : 
(1) 001636 LPCI: 
444 001636 170460 KMADO: .WORD 170460 :BASE KMC ADDR. MAY BE PATCHED BY USER. 
1 
(1) 001640 LPMR: 
(1) 001640 170461 KMAD1: .WORD 170460+1 3>D0O NOT <;KMC-CSR ADDR 
(1) 001642 LPCO: 
(1) 001642 170462 KMAD2: .WORD 170460+2 3;>PATCH <; 
(1) 001644 LPSO: 
(1) 001644 170463 KMAD3: .WORD 170460+3 s>THIS AREA < 
(1) 001646 LPADL: 
(1) 6 170464 KMAD4: .WORD 170460+4 ; 
(1) 001650 LPADH: 
(1) 001650 170465 KMADS: .WORD 170460+5 3>D0 NOT < 
(1) 001652 LPMS1: 
(1) 001652 170466 KMAD6: .WORD 170460+6 3>PATCH < 
(1) 001654 LPMS2: 
144 001654 170467 KMAD7: .WORD 170460+7 s>THIS AREA < 
(1) 001656 000344 VECTOR: .WORD AVECT18777 sBASE VECTOR OF KMC 
Ni 001660 000350 VECTPS: .WORD 4+AVECT1&777 sVECOTR ADDR. +2 
3h 001662 000005 VERSN: .WORD 5 :CURRENT VERSION NUMBER OF MICROCODE. 
(1) 001664 000000 -OVLS: .WORD 0 :/DEVICE LIST OF 1/0 ADDR. DEFINED 
A 001666 000020 -BLKW 16. :/BY INIT. 


“ae! 


a 
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SEQ 0033 


— 
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002136 
002144 012637 


002150 005037 
002154 132737 000200 001221 
62 00140 


3 
002164 012737 001222 001140 


002172 122737 000001 001134 
002200 001426 


CRLPGC.P11 18-AUG-80 09:15 

1443 

ae 001726 
1 
1) 001726 012706 001100 
1) 001732 005026 
1) 001734 022706 001140 
1) 001740 001374 
: 001742 012706 001100 
1) 001746 012737 025062 00002 
1) 001754 012737 000340 000022 
1) 001762 012737 024302 000030 
1) 001770 012737 340 000032 
1) 001776 012737 027102 0000 
1) 002 012737 000340 000036 
1) 002012 012737 026662 000024 
1) 002020 012737 000340 00002 
1) 002026 015737 022362 022354 
1) 002034 005037 001166 
1) 002040 112737 000001 001115 
1) 002046 012737 002046 pote 
} 002054 012737 002054 001110 
2 
2) 002062 013746 004 
2 2066 312737 002122 000004 
§ 002074 pig? 7 177570 001140 

002102 012737 177570 001142 

2) 002110 022777 177777 177022 
3 002116 001012 
é 
2 
2 
2 
2 
2 
1 
2 
2 
2 
2 
2 
4 
4 
4 
4 


— ot 
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MONA & as 2 
WN @—OO~ we ODNOUwewevevevuvuvuvvuevuyvvuvvuvuyvyuyvyyvyvyeyyuyvyuyvyevyyevvevvyyvrveveee™ 
~ 
= 
™ 
So 


1 
1 
1 
1 
1 


PROGRAM START 


| 
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“sent fa Eonate THE COMMON TAGS 
73CLEAR T ron COMMASCATAG (SCATAG) AREA 


BN 
#STACK K,SP 
ss INITIALIZE A FEW VECTO 
#SSCOPE 
nov a#iOTVEce 
MOV ssERiOR 
MOV asEMTVEC+2 


MOV SaTRAP OA TRAPVEC’ | 
0 ,@#TRAPVEC+2; 
N,@#PWRV 


4 
MOV #SPURDN, 
MOV #340 ,a#PURV 
MOV SENDCT,SEOPCT 
CLR SESCAP 
MOVB #1, SERMAX 
MOV - SLPADR 

, SLPER 


(R6)* 
CMP #SWR,RG ;;DONE? 
4 76 


+ sFIRST LOCATION TO 1 CLEARED 
3;CLEAR MEMORY LOCATION 


3;LOOP BACK IF NO 
3;SETUP THE STACK POINTER 


RS 
he the jim? FOR SCOPE ROUTINE 
SEnTvEC’ jive — FOR ERROR ROUTINE 


LEVEL 7 
;TRAP VECTOR FOR TRAP CALLS 


LévE 


VEC "POWER FAILURE VECTOR 


::SETUP END-OF -PROGRAM COUNTER 
+00 THE ESCAPE ON ERROR ADDRESS 
OW ONE ERROR PER TEST 
HH INITIALIZE THE LOOP ADDRESS FOR SCOPE 
TUP THE got LOOP ADDRESS 


MOV R 
at th FOR A A ee > tee REGISTER. IF NOT FOUND OR IT IS 


sEQUAL TO A ‘'=1"" 
MOV a#ERRVEC ,-(SP) 
MOV #648 ,a#ERRVEC 


MO #OSWR, SWR 
MOV #DDISP, DISPLAY 
CMP #-1,aSWR 
66$ 
65$ 
64$: MOV #65$, (SP) 


65$: MOV #SWREG,SWR 
MOV #DISPREG ,DISPLA 


66$: MOV (SP) +, a#ERRVEC 

CLR SPASS 

hy #APTSIZE .SENVM 

MOV #SSWREG, SWR 
67$: 

CMPB #1,SAUTOB 

BEQ 10$ 

TYPE 69% 

BR 8$ 3:GET 
*:69$: .ASCIZ <15><12><12>#CRLPGC 
ébs: 
10$: MOV SBASE ,ASR 

MOV #1,SD0EVCT 

CLR SPASS 





P FOR A SOFTWARE SWITCH REGISTER. 


ee 
TUP ARE SWICH REGISTER 

$ TAND A HARDUARE. DISPLAY REGISTER 

73TRY TO REFERENCE HARDWARE SWR 

7;BRANCH IF NO TIMEOUT TRAP OCCURRED 

ed THE HARDWARE SWR IS NOT = -1 

ANCH IF NO TIMEOUT 
ise UP FOR TRAP RETURN 


pr TO SOFTWARE SWR 

" ; :RESTORE ERROR VECTOR 

3;CLEAR PASS COUNT 

pe TEST USER SIZE UNDER APT 
YES,USE NON-APT SWITCH 

Z:NO,USE APT SWITCH REGISTER 

7IF RUNNING XXDP ETC. 

73 TYPE ASCIZ STRING 


OVER THE ASCIZ 
LPA/KW11-K DIAGNOSTIC#<15><12> 


SEQ 0034 








a a a — 


3 
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CRLPGC.P11  18-AUG-80 09:15 INITIALIZE THE COMMON T SEQ 0035 
1454 3 
(1 [THIS SECTION OF CODE HANDLES INITIALIZING LPA-11 FUNCTIONS 
(1) ; 
(1) 002276 010046 MOV RO,-(SP) 
(1) 002300 010146 MOV R1.=(SP) 
(1) 002302 013700 001636 MOV RMADO RO sGET KMC-11 ADDRESS. 
(1) 002306 012701 001640 MOV #KMADI RI [GET ADDR. OF ADDR. LIST. 
(1) 002312 005200 70$: INC RO [UPDATE ADDR. 
(1) 002314 010021 MOV RO, (1)¢ ‘WRITE ADDR. 
(1) 002316 020127 001656 CMP R1.#KMAD7+2 ;DONE ALL ADDRESSES? 
(1) 002322 001373 BNE 70$ [NO = DO NEXT ADDR. 
(1) 002324 005037 001664 CLR .DVLS [CLR ADDR. LIST. 
(1) 002330 012601 MOV (SP)+,R1 
met 002332 012600 MOV (SP)+.RO 
1456 002334 LOOP: 
1457 002334 005000 CLR RO 
1458 002336 005200 1$: INC RO 4 x SOME TIME SO THAT FIRST RESET 
1459 002340 001376 BNE 1$ s INSTR. WON'T wary TYPEOUT. 
1460 002342 013700 001324 MOV ASR,RO :NOW WE'RE GONNA FIX 
1461 002346 2700 000002 ADD #2,R sALL CLOCK ADDRESSES BASED ON ASR. 
1462 002352 010037 001326 MOV RO, ABR 
1463 002356 700 2 ADD #22,R0 
1464 002362 010037 001330 MOV RO, ACR 
ieee 72 th 801339 mov RO.BSR 
1209 $053%6 700 000002 ADD ; 
1468 002402 010037 001334 MOV RO, BBR 
1469 002406 062700 000002 ADD #2,R 
1470 002412 010037 001336 MOV RO,BCR 
1472 002416 013700 001340 MOV AVECT,RO sNOW FIX VECTOR ADDRESSES 
1473 002422 062700 000002 ADD #2,R0 sBASED ON AVECT. 
1474 002426 010037 001342 MOV RO, AVECP2 
1475 002432 062700 000016 ADD AR 
1476 002436 010037 001344 MOV RO, BVECT 
1477 002442 062700 000002 ADD #2. 
1478 2 010037 001346 MOV RO. BVECT2 
1480 002452 013737 001350 001352 MOV APRITY,BPRITY :FIX CLK B'S PRIORITY BASED ON A'S. 
1481 002460 00040 BR SSTART 
1482 002462 00503 001664 RSTART: CLR -DVLS 
1483 002466 012706 001100 SSTART: MOV #STACK,SP 
484 002472 012746 000340 MOV #340,-(SP) :SET PROCESSOR PRIORITY TO 7. 
1485 002476 012746 002504 MOV #1$,-(SP) 
1486 002502 000002 RTI 
1487 002504 1$: 
1488 
1489 .SBTTL * 
1490 +SBTTL * PHASE 1 CLOCKS A*B BASIC LOGIC TESTS. 


1491 -SBTTL* * 












—-—— ee 
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(5) peeeeeeeeeaeeaeeteeeeeereeereeeeereeeregeeeerereeeeeerereraeeeeee 


is FOR READING DATA: 

3B BUS AO1 L + (DATA 1N H + EV ENABLE(1) H)=RD BUFF 

‘BAO H* (DEPENDING ON WHICH DATA BITS READ) RD BUF MAL J*BUFF A00:15 

3 +CDEV ENABLE*DATA IN L]=BUS DATA 

tSSINCE WE WONT LOOK FOR ANY SPECIFIC DATA set FAILURE, 

SeJUST THAT WE CAN WRITE INTO BUFFER +, READ BA 

e1F FAILED, KEY OW "LD BUFF A L’* AND “RD BUFF AL" 

‘. PROBABLE SYNC POINT FOR THIS TEST:: “BUS A17" (2 OCCURANCES PER LOOP) 


| o) j#TEST 1 #TEST THE ADDRESSABILITY OF CLOCK ADDRESS 
(5) te "BUS A17°':"'A0G''="DEVICE™ H; eDEVICED H +"'TPO’’ H="DEV ENABLE’’ 
(3) :*"DEV ENABLE’: H¢"'TP1" H="DEV ENB 2" 
| ee 
(6) ;* 
‘3 :* PROBABLE SYNC POINT FOR THIS TEST:: ‘BUS A17°’ 
;* 
3) :* CLOCK ADDRESS TEST. SCOPE FOR ‘DEV ENB 7°’ H AND WORK BACK 
*® 
(4) + eeeeeeeeneneeeeereeretetereeeeereerenertareeteereeeeeeeeeterers 
(3) 002504 000240 TST1: NOP 
(1) 002506 112737 000001 001102 1$: MOVB #1,$TSTNM 
C1 002514 112737 000001 001204 MOVB #1,$TESTN 
(2) 
s ;* MOV @ASR,SBDDAT :/READ DEVICE REG ASR,PUT DATA IN S$BDDAT. 
7 3* MOV @ABR ,,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN $B8DDAT. 
(5) :@ MOV @ACR,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(2) 3* MOV @BSR,SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
) it MOV @BBR,SBDDAT :/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
7 3* MOV @BCR,SBDDAT ;/READ DEVICE REG BCR,PUT DATA IN S$BDDAT. 
1541 
130) RRA AAAAAAAA AAA AAA ARATE AAA AAAAAAAAAAAAAAAAAAAAAAAARAARTAAAE ES 
(3) :#TEST 2 *TEST THAT CLOCK A BUFFER CAN BE WRITTEN INTO 
(4) :FOR LOADING DATA: 
(4) +e (WE KNOW WE CAN ADDR. KW11), "BUS AOT’’ L + "'AO2"' H + “'A03"' H 
(4) ;*+" BUS C1" L="LD BUFF A’’ 
(4) :*'LD BUF A’ L + BUFFERED DATA LOADS INTO MUX LATCH (NOTE WE KNOW 
:*BY NOW “'TP1™ L SHOULD BE GOOD). 
| 


ee a ee = 
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CRLPGC.P11  18-AUG-80 09:15 T2 *TEST THAT CLOCK A BUFFER CAN BE WRITTEN INTO SEQ 0037 
4) 
{3} RARER ARAEARAEAAEAAEAEAAAEKERAATAAAARAARARAARARAARARAAAAAEAAARAAAAARAAEE 
3 002602 000004 ié12: SCOPE 
1544 sWRITE INTO PRESET BUFFER. 
1545 SET SGDDAT FOR ERROR TYPEOUT. 
1546 SREAD THE PRESET BUFFER. 
1347 002604 012737 001416 001124 MOV #1416, $GDDAT 
1829 . 7° MOV SGDDAT,@ABR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(1) 3* MOV @ABR , SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN S$BDDAT. 
1550 002632 005737 001126 TST SBDDAT 
1551 002636 001001 BNE 1$ z1F ANY DATA WAS READ BACK, WE WILL 
1552 ;BR PAST THE ERROR CALL. 
1382 
: : SSSSSSSSSSSSSSSSSSSSSSS$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1555 002640 104003 ERROR 3 ;UNABLE TO LOAD AND READ BACK 
1228 ;FROM THE BUFFER REGISTER CLOCK A. 


332 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1558 002642 1$: . 





a nn a " 
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1570 
1571 seeaeeeeeeeeeeererereeeereeerteneeeateeeeeeeeerereererereeeeeese 
(3) : TEST g #TEST THAT CLOCK A BUFFER CAN BE WRITTEN TO A ZERO 
(4) i THE LAST TEST WROTE 1°S INTO CLOCK AS BUFFER. IN THIS 
a3 peTEST WE TRY TO WRITE ALL ZEROS. 
(4) {4SIGNALS ~ SAME AS LAST TEST. SUSPECT F/F OR DATA GATE STUCK OPEN 
$8 is PROBABLE SYNC POINT FOR THIS TEST:: “LD BUFF A 
he 
(3) RAERAAAEAAAAAAAEAAEAAERAEAAARAEAEAAAAAAAARAAAERARAARAAARAARAAAREAAEEE 
1333 002642 000004 is13: SCOPE 
1573 002644 005037 001124 ~ CLR SGDDAT s INDICATE WE EXPECT 0°S. 
1574 [CLEAR BUFFER REGISTER. 
1375 TREAD CLOCK A'S BUFFER REGISTER 
1577 3* MOV SGDDAT ,@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(1) 3* MOV @ABR, SBDDAT :/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
1578 002670 005737 001126 TST SBODAT 
1379 002674 001401 BEQ 1$ ;SHOULD BE CLEAR - IF CLEAR - NEXT TEST. 
1581 
: £ S$S$SS$SSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSESSSSSSSSSSSSSSS 
1582 002676 104003 ERROR 3 sCLEAR INTR. FAILED TO CLEAR CLOCK A'S 
1583 ‘BUFFER REGISTER. 
: s :$$$S$S$SSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 
FRAAAAAAAAAAAAEAAAAAAAAERAAALAATAAARARAAAAARAAAAAAAAAAARARAENERES 
tSTEST 4 #TEST THAT CLOCK A'S STATUS CAN BE WRITTEN AND READ 
*@ 


7*NOW THAT WE CAN WRITE INTO THE BUFFER eesisten.. WE'RE GOING TO TRY 
{eURITING INTO THE STATUS REGISTER AND READ IT BACK. 


SNE SIGNALS: C'BAOS" L + “BAO2" L + ‘'BAOI" LI="LD STAT AY 
‘* ons ¢ our rte tS “DATA out MI" L + "LD STATA L = "LD STAT A HI" H 
:FOR READ BACK: AND STATA’ L 


$ eNO ATTEMPT MADE TO VERIFY THAT CORRECT DATA CAME BACK, BUT 
3*JUST THAT SOME DATA CAME BACK. 


fe PROBABLE SYNC POINT FOR THIS TEST:: ‘DEV ENABLE (1) 2 OCCURANCES PER PASS 


PLeeeeeeeereeearereneeereeeereeeteenereaeeeaereaeeeageetearesenes 








u] 
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CRLPGC.P11 18-AUG 


PGC 80 09:15 14 *TEST THAT CLOCK A'S STATUS CAN BE WRITTEN AND READ 
’ $2 002700 000004 TST4: SCOPE 
1oo8 002702 012737 001416 001124 MOV #1416, SGDDAT sLOAD SGDDAT WITH S/B. 
160 sLOAD STATUS REGISTER. 
ye ;READ BACK STATUS REGISTER 
1410 :* MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 7* ' MOV @ASR , SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
1611 goatee 005737 001126 TST SBDDAT 
161g 0027 001001 BNE 8 :IF ANY BITS RETURNED - NO ERROR. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1614 002736 104002 ERROR 2 sERROR-UNABLE TO LOAD AND READ BACK 
1615 STATUS REGISTER OF CLOCK A. 
161? 1 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1618 002740 18: sCLEAR CLOCKA'S STATUS REG. 
My 24 002740 005037 001124 CLR SGDDAT 
9433 se MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
34 J ERRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAARAAAAAAAAAKAAAAAAETETE 
+ 44 seTEST 5 *TEST THAT CLOCK B'S STATUS REGISTER CAN BE WROTE/READ 
‘3 . S*NEW SIGNALS: C'BAOS" H * “BAO2’ L + "BAOT' LJ="LD STATB’ Le'RD STAT BL 
Piel 
Ai 3* PROBABLE SYNC POINT FOR THIS TEST:: ‘DEV ENABLE (1)°' 2 OCCURANCES PER PASS 
38 
3 , 
(3) js eeeeeaeeereaeerererecereesereeerreaaeteneeeananaeaeeanarereaeeee 
108) 002754 000004 TST5: SCOPE 
1632 002756 012737 001016 001124 MOV #1016, SGDDAT 3USE 1016 AS PATTERN, PUT IN SGDDAT. 
1633 sLOAD B'S STA ° 
+4 ;READ BACK THE STATUS REG. 
1438 7 MOV SGDDAT ,@BSR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(1) 3 MOV @BSR,SBDDAT 7/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
1637 003004 005737 001126 TST SBDDAT 
Ht 74 003010 001001 BNE 1$ c1f ANY BITS CAME BACK, SUBTEST OK. 
1640 
33s SSSSSSSSSSSSSSSSSSSSSESSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1641 003012 104005 ERROR 5 sERROR-COULD NOT WRITE/READ BACK 
1g sCLOCK B'S STATUS REGISTER. 
164 
1644 


33 SSSSSSSSSSSSSSSSSS55SS55S>> ERROR <<$$95555555555555555555558 


ie 


1 


| Pe eR i Fae ita RE WS Pag yer eo a ae ET 
LPACKWIIK DIAGNOSTIC WD-11=CRLPG~C RACYI1 30G(1063) 24-OCT-80. 09:38. PAGE 3-19 


LPGC.P1118-AUG-B0 09:15 15 TEST THAT CLOCK B'S STATUS REGISTER CAN BE WROTE/READ SEQ 0040 
\ 

1645 003014 1$: ' 
1646 , 
164 
1654 
1655 s peeeeeerrereeeeeereerererrereretererteeeteeeeeeeeeeeeeeeeereeeee 

(3) LATEST 6 TEST THAT CLOCK B'S BUFFER REGISTER CAN BE WROTE/READ 

3 
(4) ‘eNEW SIGNALS: C''BAOS" H + 'BAO2" L + “BAOT’ HJ="LD BUFF BY Le"RD BUFF BL 
5? 

(3) j* PROBABLE SYNC POINT FOR THIS TEST:: “DEV ENABLE (1)"' 2 OCCURANCES PER PASS 

(4) ; 

(3) 4 it etecneeneneneceeneceeeeeeeecececenenteceeneneceeqeneceeqeqenees 
1{3) 003014 000004 $16: SCOPE é‘ 
1657 003016 012737 000370 001124 MOV «#370, $GDDAT —=s; USE. PATTERN °'370", PUT IN SGDDAT. 
1658 “WRITE INTO CLOCK @'S BUFFER REGISTER. 
1659 “READ IT BACK. 
i yt MOV -—«SGDDAT.@BBR —Ss:/ PUT DATA FROM S$GDDAT TO DEVICE REG BBR 

(1) 3 MOV —« @BBR,SBDDAT —Ss_: /READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
1662 003044 005737 001126 TST - $BDDAT 
1668 003050 001001 BNE IF ANY BITS COME BACK-SUBTEST OK. 
1665 

£ ::$$$$$$SSSS$$$$SSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1666 003052 104006 ERROR 6 SERROR-FAILED TO WRITE/READ CLOCKB'S 
1667 “BUFFER REGISTER. 
1809 
£5 :$8$$$$$$$$$$$SSSS85555SSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

1670 003054 1$: 
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AT CLOCK B'S BUFFER REGISTER CAN BE WROTE/READ 


> 


3/4" 
seeeeeeeeeeeeeereereceerereeeteteneeeeeaterererenerereereeereete 


atest 7 *TEST THAT CLOCK A STATUS REGISTER BIT 15 CAN BE SET AND CLEARED 


Z*CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
F/FS OR GATES 


z PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 


. ” 
Tan nyeage >= pe ical ahh maa mania te tmaataintie 
000004 TS17: SCOPE 
:/CLEAR THE. STATUS REGISTER. 
:/SET FOR ERROR TYPEOUT S/B. 


‘ ;/READ THE STATUS REGISTER. 
012737 100000 001124 MOV #B1T15,$GDDAT 


se MOV SGDDAT ,@ASR ;/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
s@ MOV @ASR ,SBDDAT ;/READ DEVICE REG ASR,PUT DATA ie SBDDAT. 
023737 001124 001126 CMP $GDDAT,SBDDAT ;/DID BIT 15 AND ONLY BIT 15 SET? 
001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ’ ERROR 2 ;/ERROR CLOCK AS STATUS —— 


;/BIT 15 FAILED TO BIT SET 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 | BR 2s ;/BR TO END SUBTEST. 
1$: :/TRY CLEARING BIT 15. 
005037 001124 CLR SGDDAT /CLEAR S$/B_ FOR TYPEOUT IF ANY. 
‘ NOW READ IT BACK. 

s@ MOV SGDDAT ,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 

3 MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 23 3/1F ZERO-NO ERROR! 
33 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 ;/ERROR-CLOCK A STATUS REGISTER. 


:/BIT 15 FAILED TO CLEAR. 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSESSSSSSSSSSSSSSS 
2s: 


SEQ 0041 


CR 


D 
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E 3-21 
CRLPGC.P11 18-AUG-80 09:15 17 *TEST THAT CLOCK A STATUS REGISTER BIT 15 CAN BE SET AND CLEARED 
(2) & 
2} , encenelabensenereenayrecescoseosneseqoneseovoqnsensoussqoossees 
oz :aTEst 10 *TEST THAT CLOCK A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED 
(6) CLOCK A HH REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
a iF /FS OR GATES 
1 44 ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’ 2 OCCURANCES PER PASS 
3 

(6) ; 
(8) c  eueneneeecencecceceeceneecececeneneqeeceeeeeereneneenenececees 
(4) 003154 000004 TST10: SCOPE 
(2) 3/CLEAR THE STATUS REGISTER. 
(2) ;/SET Pt 4, 
(2) 3/SET FOR ERROR TYPEOUT S/B. 
(2) ;/READ THE STATUS REGISTER. 
i t 003156 012737 040000 001124 MOV #B1T14,$GDDAT 
3 had MOV SGDDAT ,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) 3* MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA bs SBDDAT. 
(2) 003204 023737 001124 001126 CMP $GDDAT,S$BDDAT ;/DID BIT 14 AND ONLY BIT 14 SET? 
‘G 003212 001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 

33 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003214 104002 ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER. 
(¢} ;/BIT 14 FAILED TO BIT SET. 

333 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS ‘ 
(2) 003216 000416 BR 2s ;/BR TO END SUBTEST. 
(2) 003220 1$: — :/TRY CLEARING BIT 14. 
(2) 003220 005037 001124 CLR SGDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
At ;/NOW READ IT BACK. 
tH 3@ MOV SGDDAT ,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) 3 MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN $BDDAT. 
(2) 003244 005737 001126 TST SBDDAT 
i 003250 001401 BEQ 2s 3/1F ZERO-NO ERROR! 

37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003252 104002 ERROR 2 ;/ERROR-CLOCK A STATUS REGISTER. 
(¢ ;/BIT 14 FAILED TO CLEAR. 


003254 


27 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 





SEQ 0042 


LF 
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A STATUS REGISTER BIT 14 CAN BE SET AND CLEARED SEQ 0043 CR 


:/a 
peeeeeeeneeeetereererereeeereeteeeeeeeeneereereereetereeteeeetes 


*TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 
F#CLOCK a BH REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 


jaTEst 11 
aF/FS OR GAT 
fe 
i 
000004 tsT11: SCOPE 
012737 020000 001124 MOV 
3* MOV 
MOV 
023737 001124 001126 CMP 
001402 BEQ 


37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
ERROR 


104002 


37 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 
005037 001124 


1$: 


005737 001126 
001401 


BR 
CLR 


MOV 


MOV 
TST 
BEQ 


#B1T13,$GDDAT 
SGDDAT,@ASR 


@ASR ,,SBDDAT 
- Stetaehc meas 


2 


23 
SGDDAT 


SGDDAT,@ASR 
@ASR ,SBDDAT 
SBODAT 


:/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 


;/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 
;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
3/1F ZERO-NO ERROR! 


;* PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 


RARER AAARAAAREREEEE AERA AAAAEAAARAEAARAAERERAAAARAAAAAAAAAAEE 


:/SET FOR ERROR TYPEOUT S/B. 


i 
:/CLEAR THE STATUS REGISTER. | 
:/SET BIT 13. | 
;/READ THE STATUS REGISTER. | 


;/READ DEVICE REG ASR,PUT DATA " SBDDAT. 
:/DID BIT 13 AND ONLY BIT 13 SET? 
:/IF SO-LETS TRY CLEARING IT. 


;/ERROR CLOCK AS STATUS REGISTER. 
;/BIT 13 FAILED TO BIT SET. 


;/BR TO END were" 

:/TRY CLEARING BIT 13. 

;/CLEAR S/B FOR TYPEOUT IF ANY. 
;/NOW READ IT BACK. 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104002 


2 


;/ERROR-CLOCK A STATUS REGISTER. 
;/BIT 13 FAILED TO CLEAR. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSS5 


2$: 
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18-AUG-80 09:15 T11 *TEST THAT CLOCK A STATUS REGISTER BIT 13 CAN BE SET AND CLEARED 


jeeeeeneeeeeeeeeeecereeeeeererereneteeeeneeeenerererereretereees 


:#TEST 12 *TEST THAT CLOCK A STATUS REGISTER BIT 9 CAN BE SET AND CLEARED 
CLOCK A or REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
pF /FS OR GATES 
ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 
*¢? 
+ AReeeeeeeeeeeneeneeeneteterteeeereeeeerereeeneereeeererereeeees 
000004 TST12: SCOPE 
;/CLEAR THE STATUS REGISTER. 
3/SET BIT 9. 
:/SET FOR ERROR TYPEOUT S/B. 
;/READ THE STATUS REGISTER. 
012737 001000 001124 MOV #B1T9,$GDDAT 
ha MOV SGDDAT,@ASR ;/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 
ad MOV @ASR ,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
023737 001124 001126 CMP $GDDAT,SBDDAT ;/DID BIT 9 AND ONLY BIT 9 SET? 
001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 ;/ERROR CLOCK AS STATUS — 


;/BIT 9 FAILED TO BIT SET 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 BR 23 ;/BR TO END era 
1$: :/TRY CLEARING BIT 9. 
005037 001124 CLR SGDDAT ;/CLEAR S/B FOR TYPEQUT IF ANY. 
;7NOW READ IT BACK. 
se MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
3¢ MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN $BDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 23 3/1F ZERO-NO ERROR! 
333 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 


;/ERROR-CLOCK A_ STATUS REGISTER. 
;/BIT 9 FAILED TO CLEAR. 


15 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
23: 


SEQ 0044 


G 4 
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CRLPGC.P11 18-AUG-80 09:15 11 *TEST THAT CLOCK A STATUS REGISTER BIT 9 CAN BE SET AND CLEARED 
(2) 
tg peeeeeeeereeeneeeerereeeeceereeerenreereneeerererererereeeeetete 
+t :#TEST 13 *TEST THAT CLOCK A STATUS REGISTER BIT 8 CAN BE SET AND CLEARED 
(6) CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(6) pF /FS OR GATES 
44 ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 

(6) ; 
‘6 ; | eteceeenanenececeneceeeecceceeneeececeeneeeeeqeneeeeeeeeeeeeees 
(4) 003454 000004 TST13: SCOPE 
(2) hi a THE STATUS REGISTER. 
(2) :/SET BIT 8. 
(2) :/SET FOR ERROR TYPEOUT S/B. 
(2) ;/READ THE STATUS REGISTER. 
fs 903456 012737 000400 001124 MOV #81T8,SGDDAT 
= :* MOV SGDDAT,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) 3* MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(2) 35 023737 001124 001126 CMP SGDDAT,SBDDAT ;/DID BIT 8 AND ONLY BIT 8 SET? 
te) 003512 001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 

32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003514 104002 ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER. 
‘¢} :/B1T 8 FAILED TO BIT SET. 

37: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003516 000416 BR 2s ;/BR TO END sores" 
(2) 003520 1$: :/TRY en NG BIT 8. 
(2) 003520 005037 001124 CLR SGDDAT “;/CLEAR $/B FOR TYPEOUT IF ANY. 
7. ;/NOW READ IT BACK. 
tH :* MOV SGDDAT,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3 3 MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
12) 003544 005737 001126 TST SBDDAT 
vt 003550 001401 BEQ ro 3/1F ZERO-NO ERROR! 

37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003552 104002 ERROR 2 ;/ERROR-CLOCK A STATUS REGISTER. 
te) ;/BIT 8 FAILED TO CLEAR. 





27 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


SEQ 0045 


a 


or 
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CRLPGC.P11 18-AUG-80 09:15 *TEST THAT CLOCK A STATUS REGISTER BIT 8 CAN BE SET AND CLEARED 
(2) 
(g} seeeeeeereeeeeereeeeereeerereereneeeeeererreerenerereeererenetes 
3H ;#TEST 14 *TEST THAT CLOCK A STATUS REGISTER BIT 7 CAN BE SET AND CLEARED 
(6) CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(9) se /ES OR GATES 
14s ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 
(6) ; 
(8) it sunenecensenececeeeeeeeeecececeeeecececenteceeneeceeneeenenes 
(4) 003554 000004 TST14: SCOPE 
(2) :/ CLEAR THE STATUS REGISTER. 
(2) :/SET BIT 
(2) :/SET FOR ERROR TYPEOUT S/B. 
(2) ;/READ THE STATUS REGISTER. 
‘¢} 003556 012737 000200 001124 MOV #8117, $GDDAT 
3) 3 MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) :* MOV @ASR ,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(2) 003604 023737 001124 001126 CMP SGDDAT,SBDDAT ;/DID BIT 7 AND ONLY BIT 7 SET? 
‘¢} 003612 001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 
37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003614 104002 ERROR 2 ;/ERROR CLOCK AS STATUS a 
: 4 ;/BIT 7 FAILED TO BIT SET 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003616 000416 BR 2$ ;/BR TO END SUBTEST. 
(2) 003620 1$: s/TRY CLEARING BIT 7. 
(2) 003620 005037 001124 CLR SGDDAT CLEAR S/B FOR eases IF ANY. 
. INO READ IT BACK 
$4 :* MOV SGDDAT ,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) 7¢ MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(2) 003644 005737 001126 TST SBODAT 
iH 003650 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003652 104002 ERROR 2 ;/ERROR-CLOCK A STATUS REGISTER. 
te) ;/BIT 7 FAILED TO CLEAR. 
32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SS$SSSSSSS5S555SSSSSS55585 
(2) 003654 2$: 


r 


-——— 
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CRLPGC.P11  18-AUG-80 09:15 114 *TEST THAT CLOCK A STATUS REGISTER BIT 7 CAN BE SET AND CLEARED SEW 0047 
(2) + 
(z} s seveeneseecsneceocevocoscoocorscosoqnsonsocsoesboncoveenooesoees 
(3) :#TEST 15 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 
(6) CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
$3? i aF/F S OR GATES 
(7) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
(6) ‘e 
(8)  . enenenenecennccceneeeecececececeneececeneececeeeeteceeneneesene 
(4) 003654 000004 i8T15: SCOPE 
(2) i/CLEAR THE STATUS REGISTER. 
(2) :/SET BIT 
(2) :/SET FOR ERROR TYPEOUT S/B. 
(2) :/READ THE STATUS REGISTER. 
(2) 003656 012737 000100 001124 MOV #B1T6,SGDDAT 
ce ;* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) 3* MOV @ASR, SBDDAT ;/READ DEVICE REG ASR PUT DATA, IN SBDDAT. 
(2) 003704 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 6 AND ONLY BIT 6 SET? 
(2) 003712 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING Mt. 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003714 104002 ERROR 2 :/ERROR CLOCK AS STATUS REGISTER. 
:/BIT 6 FAILED TO BIT SET. 
5: {S$SSSSSSSSSSSSSSSSSSSSS$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003716 000416 BR 2$ _ $/BR TO END SUBTEST. 
(2) 003720 1$: :/TRY CLEARING BIT 6. 
(2) 003720 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(2) :7NOW READ IT BACK. 
(3) ;* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(3) * MOV @ASR,SBDDAT :/READ DEVICE REG ASR,PUT DATA IN S$BDDAT. 
(2) 003744 005737 001126 1ST SBDDAT 
(2) 003750 001401 BEQ 2$ 3/1F ZERO-NO ERROR! 
3; {$$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 003752 104002 ERROR 2 ; /ERROR-CLOCK A STATUS grEGISTER. 
(2) :/BIT 6 FAILED TO CLEAR 





17 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
23: 


ee ee oe 
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CRLPGC.P11 18-AUG-80 09:15 11 *TEST THAT CLOCK A STATUS REGISTER BIT 6 CAN BE SET AND CLEARED SEQ 0048 
(2) f 
(g} srenunen ceeqneneunneenengngensnnpnoussinennnnsennsepeqneecanens 
$2) : TEST 16 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 
(6) CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(9) i aF/F S OR GATES 
144 ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
3 
(6) ; 
(8) i eteeneaneeececeeceecececcereececeneneeeeeeeeeeneeeseneneesenes 
(4) 003754 000004 TST16: SCOPE 
3) HA Ral STATUS REGISTER. 
(2) i /SET FOR ERROR TYPEOUT S/B. 
(2) ;/READ THE STATUS REGISTER. 
is} 003756 012737 000040 001124 MOV #B1T5,SGDDAT 
oe ied MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) :* MOV @ASR,SBDDAT ;/READ DEVICE REG Wy rt de et IN S$BDDAT. 
(2) 004004 023737 001124 001126 CMP $GDDAT,S$BDDAT ;/DID BIT 5 AND ONL Y BIT 5 SET? 
‘¢) 004012 001402 BEQ 1$ ;/1F SO-LETS TRY CLEARING IT. 
37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 004014 104002 ERROR 2 ;/ERROR CLOCK AS STATUS REGISTER. 
: ; :/BIT 5 FAILED TO BIT SET. 
37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 004016 000416 BR 2s ;/BR TO END SUBTEST. 
(2) 004020 1$: :/TRY CLEARING BIT 5. 
(2) 004020 005037 001124 CLR SGDDAT ;/CLEAR S$/B FOR TYPEOUT IF ANY. 
va ;7NOW READ IT BACK. 
7 se MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) hd MOV @ASR, SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(2) 004044 005737 001126 TST SBDDAT 
7. 004050 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
33: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 004052 104002 ERROR 2 ;/ERROR-CLOCK A Stars repre 
+. ;/BIT 5 FAILED TO CLEAR 


15 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 


- 


— 
Fa 





Ar RRR RRA 
WNMNMRUWWwwT 
www wuvevw 


18-AUG-80 09:15 T16 *TEST THAT CLOCK A STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 
& 
, sosencnboncnnnnsevecenecsonccs cnccconcocsosoovoococooseooneees 
atest 17 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 
S*CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
pF /FS OR GATES 
ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 
it etececennecnccceeceeeceeececececeneceneeeeeecenecececceneneneee 
004054 000004 TST17: SCOPE 
aStt Bl THE STATUS REGISTER. 
:/SET FOR ERROR TYPEOUT S/B. 
;/READ THE STATUS REGISTER. 
004056 012737 000010 001124 MOV #8113, $GDDAT 
:* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE 
:* MOV @ASR,SBDDAT ; /READ bevice REG 7 “x DATA IN 
004104 023737 001124 001126 CMP $GDDAT,SBDDAT :/DID BIT 3 AND ONLY BIT 3 SET? 
004112 001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 
32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
004114 104002 ERROR 2 3/ERROR CLOCK AS STATUS REGISTER. 
;/BIT 3 FAILED TO BIT SET. 
33 SSSSSSSSSSSESSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
004116 000416 BR 23 ;/BR TO END SUBTEST. 
004120 1$: 3/TRY Bee BIT 3. 
004120 005037 001124 CLR SGDDAT fc LEAR S/B FOR TYPEOUT IF ANY. 
;/NOW READ IT BACK. 
:* MOV SGDDAT ,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE 
:* MOV @ASR ,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN 
004144 005737 001126 TST SBDDAT 
004150 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
004152 104002 ERROR 2 ;/ERROR-CLOCK A STATUS REGISTER. 
;/B1T 3 FAILED TO CLEAR. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSS55585 
004154 2$: 


4 
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CRLPGC.P11 


REG ASR 
SBDDAT. 


REG ASR 
SBDDAT. 


EEE 


er 
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CRLPGC.P11  18-AUG-80 09:15 11 *TEST THAT CLOCK A STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 
(2) sa 
(g} seeeeeeeeneneerrerenreneecerereeererenerereeeeereeerereteetetete 
(3) j#TEST 20 *TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 
(6) ‘ SCLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(6) zaF/FS OR GATES 
(7) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
(6) . 
a3 st deenenenecenccceeececceescecceneeqnencenteereceenececeeneceens 
(4) 004154 000004 18120: SCOPE 
(2) s/CLEAR THE STATUS REGISTER. 
(2) :/SET BIT 2. 
(2) :/SET FOR ERROR TYPEOUT S/B. 
(2) ;/READ THE STATUS REGISTER. 
(2) 004156 012737 000004 001124 MOV #B1T2,$GDDAT 
G) 3* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(3) * MOV @ASR ,SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(2) 004204 023737 001124 001126 CMP SGDDAT,$BDDAT :/DID BIT 2 AND ONLY BIT 2 SET? 
(2) 004212 001402 . BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 004214 104002 ERROR 2 s/ERROR CLOCK AS STATUS REGISTER. 
(2) :/BIT 2 FAILED TO BIT SET. 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSESSSSSSSSSSS 
(2) 004216 000416 BR 2$ ;/BR TO END SUBTEST, 
(2) 004220 1$: 3/TRY CLEARING BIT 2. 
(2) 004220 005037 001124 CLR SGDDAT /CLEAR $/B FOR TYPEOUT IF ANY. 
(2) NOW READ IT BACK. 
(3) 3* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(3) 3* MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SSDDAT. 
(2) 004244 005737 001126 TST SBDDAT 
(2) 004250 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
5: {$S$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 004252 104002 ERROR 2 ;/ERROR-CLOCK A STATUS REGISTER. 
(2) :/BIT 2 FAILED TO CLEAR. 
3: {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(2) 004254 2s: 


SEQ 0050 
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004254 


004256 


004354 


18-AUG-80 09:15 


PAGE 3-30 
*TEST THAT CLOCK A STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 
3/8 
peeenereenennrerereerecerererererererereneneeeeeeeeeeereteetetet 
:ATEST 21 *TEST THAT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 


‘CLOCK A STATUS REGISTER BET EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
iaF/F FS OR GATES 


ie PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 


es 


: ; RRRAAAAAAAAAAAAEAAAERAERERAAAAAARARAAAAAAAARAAAAAAAAAAARAARAEAAAAAE 
000004 7é121: SCOPE 
SES THE STATUS REGISTER. 


:/SET FOR ERROR TYPEOUT S/B. 
;/READ THE STATUS REGISTER. 


012737 000002 001124 MOV #B1T1,$GDDAT 
3° MOV SGDDAT ,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
3 MOV @ASR ,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
023737 001124 001126 CMP $GDDAT,SBDDAT ;/DID BIT 1 AND ONLY BIT 1 SET? 
001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 


;/ERROR CLOCK AS STATUS REGISTER. 
:/BIT 1 FAILED TO BIT SET. 


32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 BR 2s ;/BR TO END SUBTEST. 
1$: :/TRY CLEARING BIT 1. 
005037 001124 CLR SGDDAT :/CLEAR S/B FOR TYPEOUT IF ANY. 
;7NOW READ IT BACK. 
7* MOV SGDDAT ,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
3¢ MOV @ASR, SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2s 3/1F ZERO-NO ERROR! 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 ;/ERROR-CLOCK A ad Recto. 


:/BIT 1 FAILED TO CLEAR 
27 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
23: 





SEQ 0051 


EE 


a 
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004354 


004356 


004454 
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PAGE 3-31 
AT CLOCK A STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 
3/4" 
PIT ITITILITI TILT IT ITT t titi it iii iii iii 
:TEST 22 *TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 


F#CLOCK A STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
zaF/F S OR GATES 


ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 


es 


: 3 RRARARAAAAAAAAREEAAAAAATAEAAAAAAAREARARARARAAARARARAAAARARARAARAEARAREEE 
000004 +8122: SCOPE 
:/ CLEAR THE STATUS REGISTER. 


SET BI 
:/SET FOR ERROR TYPEOUT S/B. 
3/READ THE STATUS REGISTER. 


012737 000001 001124 MOV #B1T0,SGDDAT 
:* MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
:* MOV @ASR,SBDDAT :/READ DEVICE REG te a IN SBDDAT. 
023737 001124 001126 CMP SGDDAT,SBDDAT ;/DID BIT 0 AND ONLY BIT O SET? 
001402 BEQ 1$ :/1F SO-LETS TRY CLEARING IT. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 s/ERROR CLOCK AS STATUS REGISTER. 


:/BIT 0 FAILED TO BIT SET. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 BR 2s 7/BR TO END ead a 
1$: :/TRY CLEARING BIT 0. 
005037 001124 CLR SGDDAT 3/CLEAR $/B FOR TYPEOUT IF ANY. 
;7NOW READ IT BACK. 
se MOV SGDDAT ,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
:* MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ cs 3/1F ZERO-NO ERROR! 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104002 ERROR 2 


3/ERROR-CLOCK A STATUS REGISTER. 
:/BIT 0 FAILED TO CLEAR. 


25 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


| 


J 
{ 


—_———- -- --- ---- _—*- 
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37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSS555 
(3) 004554 . 28: 


CRLPGC.P11  18-AUG-80 09:15 *TEST THAT CLOCK A STATUS REGISTER BIT 0 CAN BE SET AND CLEARED sea 0053 CRI 
(3) . s/t , 
( ) ‘ sg eeeccaderenececcocccocececccesoceconeconccoreeecsqoceceeoceceee 
j#TEST 23 *TEST THAT CLOCK A BUFFER REGISTER BIT 0 CAN BE SET AND CLEARED 
(7) ° ‘ SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL | 
@) :aF/FS OR GATES 
(8) ce PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 

3* 
(7) 7° g 
(6) s  RRAARAAHAREAAEREKERATeEeKeLeTeTATAKeRAAAAAKAAKHAeRAAAAATAT TTY 
(5) 004454 000004 1$123: SCOPE | 
(3) :/ CLEAR THE BUFFER REGISTER. 
(3) :/SET BI 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 004456 012737 000001 001124 MOV #B1T0,$GDDAT | 
(4) * MOV SGDDAT,@ABR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) * MOV @ABR ,SBDDAT s/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 004504 023737 001124 001126 CMP ¢, SGDDAT,SBDDAT ;/DID BIT 0 AN Y BIT 0 SET? 
(3 004512 001402 BEQ 1$ ‘/IF SO-LETS TRY CLEARING IT. 
‘ 5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004514 104003 ERROR 3 ;/ERROR CLOCK AS BUFFER REGISTER. 
(3) , :/BIT 0 FAILED TO BIT SET. 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004516 000416 BR 2$ :/BR TO END SUBTEST, 
(3) 0046520 1$: 3/TRY CLEARING BIT 0. 
(3) 006520 005037 001124 CLR SGDDAT /CLEAR $/B FOR TYPEOUT IF ANY. 
3) :7NOW READ IT BACK. | 
(4) ;* MOV SGDDAT,@ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR | 
(4) * MOV @ABR, SBDDAT :/READ DEVICE REG ABR,PUT DATA IN S$BDDAT. | 
(3) 004544 005737 001126 | TST $BDDAT 
(3) 004550 001401 BEQ 2$ :/1F ZERO-NO ERROR! | 
5: {S$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSESSSSSSS 
(3) 004552 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. | 
(3) : :/BIT 0 FAILED TO CLEAR. | 
2 | 
| 
| 




























LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-0C1-80° net ee 
CRLPGC.P11 18-AUG-80 09:15 T2 *TEST THAT CLOCK A BurreRe neGts ER ait 0 CAN BE SET AND CLEARED 


(3) e 
(3) pgonencetonenconccorcocscnecovecooorersenescorosoveosonceoqooesss 
(6) : TEST 24 *TEST THAT CLOCK A BUFFER REGISTER BIT 1 CAN BE SET AND CLEARED 
(7) : SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@ isF/FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
(7) :* 
(6) s MARR eAeeeeeeeeeeeeeeeeedeeereeKerereeeereneneneeeeerereseeess 
(5) 004554 000004 TST24: SCOPE 
(3) :/CLEAR THE BUFFER REGISTER. 
(3) :/SET BIT 1. 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 004556 012737 000002 001124 MOV #B1T1,$GDDAT 
C6) ;* MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) es MOV @ABR, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 004604 023737 001124 001126 CMP SGDDAT,$BDDAT :/DID BIT 1 AND ONLY BIT 1 SET? 
(3) 004612 001402 BEQ 1$ :/1F SO-LETS TRY CLEARING IT. 
5 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004614 104003 ERROR ‘3 ;/ERROR CLOCK AS BUFFER REGISTER. 
(5) :/BIT 1 FAILED TO BIT SET. 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004616 000416 BR 2$ ;/BR TO END SUBTEST. 
(3) 004620 1$: /TRY CLEARING BIT i. 
(3) 004620 005037 001124 CLR $GDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) ;7NOW READ IT BACK. 
(4) 3* ‘MOV SGDDAT,@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) :* MOV @ABR, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 004644 005737 001126 TST SBDDAT 
(3) 004650 001401 BEQ 2$ 3/1F ZERO-NO ERROR! 
: 5 {$$$S$SSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004652 104003 ERROR 3 s /ERROR-CLOCK A BUFFER REGISTER. 
7 :/BIT 1 FAILED TO CLEAR. 


32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
23: 


SEQ 0054 


LP) 
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CRLPGC.P11 18-AUG-80 09:15 124 *TEST THAT CLOCK A BUFFER REGISTER BIT 1 CAN BE SET AND CLEARED 
(3) 3/a 
{3} steeeneeeeneneeeeeeeereeeeeeereeeeeeeeteneeeeereerenerereeeeeete 
(g) j TEST 25 *TEST THAT CLOCK A BUFFER REGISTER BIT 2 CAN BE SET AND CLEARED 
(7) CLOCK a BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
$4 F/FS OR GATES 
oz; is PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
(7) :° , 
(6) +  Reeeeeeeeeeeeeeeeeeereeeeeeeeereeaneeenenereeenerereneeereenere 
(5) 004654 000004 TST25: SCOPE 
(3) 7 CLEAR a BUFFER REGISTER. 
(3) :/SET FOR ERROR TYPEOUT $/B. 
(3) ;/READ THE BUFFER REGISTER. 
+ 004656 012737 000004 001124 MOV #B1T2,$GDDAT 
2s :* MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) :* MOV @ABR ,SBDDAT ty ry DEVICE REG ABR,PUT it IN SBDDAT. 
(3) 0047 023737 001124 001126 CMP ScDDAT, SBDDAT D BIT 2 AND ONLY BIT 2 SET? 
ar 004712 001402 BEQ 1$ iF  SO-LETS TRY CLEARING IT. 
332 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004714 104003 ERROR 3 :/ERROR CLOCK AS BUFFER REGISTER. 
7) ;/BI1T 2 FAILED TO BIT SET. 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004716 000416 BR 2s ;/BR TO ene SUBTEST, 
(3) 004720 1$: :/TRY Fe RING BIT 2. 
(3) 004720 005037 001124 CLR SGDDAT 3;/CLEAR S/B FOR TYPEOUT IF ANY. 
ori :7NOW READ IT BACK. 
744 7* MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) 3¢ MOV @ABR ,,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 004744 005737 001126 TST SBDDAT 
$44 004750 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 004752 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 
4 ;/BIT 2 FAILED TO CLEAR. 
33: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSS5S5 
(3) 004754 2s: 





SEQ 0055 


CR 





a : “wearer 
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004754 


004756 


005044 
005050 


005052 
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*TEST THAT CLOCK A BUFFER REGISTER BIT 2 CAN BE SET AND CLEARED 
seeeeeeneeeeeeerecereeereeeeeereeeereeenreererereeeteneteeeretee 
;#TEST 26 *TEST THAT CLOCK A BUFFER REGISTER BIT 3 CAN BE SET AND CLEARED 


CLOCK A oh REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
p8F/FS OR GATES 


is PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’ 2 OCCURANCES PER PASS 


-? 
SRERERAAAAAAAAAAAAEAAEAAEAEAAEAAAAAAAAARAAAAARAERAAEAAAAARAERAARAAKERED 


000004 18126: SCOPE 
:/ CLEAR THE BUFFER REGISTER. 


;/SE 
:/SET FOR ERROR TYPEOUT S/B. 
;/READ THE BUFFER REGISTER. 


012737 000010 001124 MOV #8113, $GDDAT 
s¢ MOV SGDDAT,@ABR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
:* MOV @ABR , SBDDAT yor Hie -y# Td 7. pare IN $BDDAT. 
023737 001124 001126 CMP SGDDAT , SBDDAT :/D1D T 3 AND ONLY BIT 3 SET? 
001402 BEQ 1$ /1F SO-LETS TRY CLEARING IT. 
37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 


;/ERROR CLOCK AS BUFFER _—— 
;/BIT 3 FAILED TO BIT SET 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 BR 2s ;/BR TO END ho ah AP 
1$: 3/TRY CLEARING BIT 3. 
005037 001124 CLR SGDDAT /CLEAR S/B FOR TYPEOUT IF ANY. 
7NOW READ IT BACK. 
:* MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
:* MOV @ABR ,, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 23 3/1F ZERO-NO ERROR! 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 7/ERROR-CLOCK A BUFFER REGISTER. 


:/B1T 3 FAILED TO CLEAR. 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


SEQ 0056 





r- 
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CRLPGC.P11 18-AUG-80 09:15 126 EST THAT CLOCK A BUFFER REGISTER BIT 3 CAN BE SET AND CLEARED 
(3) 3/8 
(3)  eeeeeeeeeeeeeceeereereeeeereereneneeeeeeeeeeeeereneeeereeneeee 
(6) jaTEST 27 *TEST THAT CLOCK A BUFFER REGISTER BIT 4 CAN BE SET AND CLEARED 
(7) ? SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) pF /FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
(7) is 
(6) SE RRARAREAEREARAAAERA AERA E AERA RAE AAAAEAAAAAAAEAAARAAAAAEAAAAEREE 
(5) 005054 000004 1$127: SCOPE 
(3) ;/CLEAR THE BUFFER REGISTER. 
(3) :/SET BIT 4. 
(3) °/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 005056 012737 000020 001124 MOV #B1T4,$GDDAT 
os) ;* MOV SGDDAT, @ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) ;* MOV @ABR,SBDDAT :/ READ DEVICE REG ABR,PUT DATA, IN $BDDAT. 
(3) 005104 023737 001124 001126 CMP SGDDAT, SBDDAT D BIT 4 AND ONLY BIT 4 SET? 
(3) 005112 001402 BEQ 1$ AAT » SO-LETS TRY CLEARING IT. 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005114 104003 ERROR 3 s/ERROR CLOCK AS BUFFER REGISTER. 
(3) :/BIT 4 FAILED TO BIT SET 
5: :SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005116 000416 BR 2$ :/BR TO END SUBTEST. 
(3) 005120 1$: :/TRY CLEARING BIT 4. 
(3) 005120 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
(6) 3* MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) ;t MOV @ABR, SBDDAT :/READ DEVICE REG ABR,PUT DATA IN $BDDAT. 
(3) 005144 005737 001126 TST SBDDAT 
(3) 005150 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
5 :SSSSSSSSSSSSSSSSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005152 104003 ERROR 3 : /ERROR-CLOCK A BUFFER REGISTER. 
+f 3;/BIT 4 FAILED TO CLEAR. 
5 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005154 2$: 


SEQ 0057 


Ll 


| G 
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:38 PAGE 3-37 
CRLPGC.P11  18-AUG-80 09:15 12 TEST THAT CLOCK A BUFFER REGISTER BIT 4 CAN BE SET AND CLEARED SEQ 0058 

(3) 
( ) seeneeeeereneeereeeeeeeterneeeeeeeeeeeeeeeneereeeeeerereteeetes 
j#TEST 30 *TEST THAT CLOCK A BUFFER REGISTER BIT 5 CAN BE SET AND CLEARED 
(7) ? SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) ;8F/FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’ 2 OCCURANCES PER PASS 
(7) - 
(6)  » ee eeeecenrereccecsenecececececeseececeecenseqeeceeceesceececs 
(5) 005154 000004 +8130: SCOPE 
(3) :/ CLEAR THE BUFFER REGISTER. 
(3) :/SET BIT 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 005156 012737 000040 001124 MOV #B1TS,SGDDAT 
(6) 3* MOV SGDDAT, @ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) ;* MOV @ABR, SBDDAT ;/READ DEVICE REG ABR,PUT DATA, IN SBDDAT. 
(3) 005204 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 5 AND ONLY BIT 5 SET? 
(3) 005212 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT 

: : $$$$SS$SSS$SSSSSSSSS$5S$SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005214 104003 ERROR 3 ;/ERROR CLOCK AS BUFFER REGISTER. 
(3) :/BIT 5 FAILED TO BIT SET. 

: ss SSSSSSSSSS$SSSSSSSESSESESS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005216 000416 BR 2$ ;/BR TO END SURTEST. 
(3) 005220 1$: :/TRY CLEARING BIT 5. 
(3) 005220 005037 001124 CLR SGDDAT 3;/CLEAR S/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
(4) ;* MOV SGDDAT, @ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) :* MOV @ABR,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN S$BDDAT. 
(3) 005244 005737 001126 TST SBDDAT 
(3) 005250 001401 BEQ 2$ :/1F ZERO-NO ERROR! 

5; {8$$$S$SSSSSS$S$SSSSSS$S$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005252 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 
(3) :/BIT 5 FAILED TO CLEAR. 


35 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 





ae ae ee ee SS  - ee ee - 





LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C macy 306(1063) 24-0CT-80 H 8. :38 PAGE 3-38 
CRLPGC.P11 18-AUG-B0 09:15 13 eTEST THAT CLOCK A BUFFER REGISTER BIT 5 CAN BE SET AND CLEARED SEQ 0059 
(3) r 
( ) s seencnnseqccocccocceccoccoccoccocscqvcocsonsoqcoocoqosousoosooes 
(6) :ATEST 31 eTEST THAT CLOCK A BUFFER REGISTER BIT 6 CAN BE SET AND CLEARED 
(7) FSCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
7) ieF/FS OR GATES 
(8) ‘y PROBABLE SYNC POINT FOR THIS TEST:: “DEVICE OUT’ 2 OCCURANCES PER PASS 
** 
(7) : 
(6) ; | eeaneneneenenececeeeneneceeececenenceneeceecqeeeteceeneceesecs 
(5) 005254 000004 T$131: SCOPE 
(3) S/CLEAR THE BUFFER REGISTER. e 
(3) :/SET BIT 6. 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) :/READ .HE BUFFER REGISTER. 
(3) 005256 012737 000100 001124 MoV #8116, $GDDAT 
(4) :* MoV SGDDAT,@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) it MoV @ABR, SBDDAT :/READ DEVICE REG ABR.PUT DATA IN SBDDAT. 
(3) 005304 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 6 AND ONLY BIT 6 SET? 
(3) 005312 001402 BEQ 1$ </1F SO-LETS TRY CLEARING IT. 
£1 :$$$$$$$$$$$$S$$S$S$$SSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005314 104003 ERROR 3 ;/ERROR CLOCK AS BUFFER REGISTER. 
(3) :/BIT 6 FAILED TO BIT SET. 
££ :$$$$$$$S$$$$$$$$S$$$$$SSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005316 000416 BR 2% :/BR TO END SUBTEST. 
(3) 005320 1$: :/TRY CLEARING BIT 6. 
(3) 005320 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
G3) :7NOW READ IT BACK. 
(4) :* MOV SGDDAT,@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) i MoV @ABR, SBDDAT :/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 005344 005737 001126 TST SBDDAT 
3) 005350 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
£1 :$$$$$$$$$$S$$S$$$SS$$$SSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005352 104003 ERROR 3 :/ERROR-CLOCK A BUFFER REGISTER. 
(3) :/BIT 6 FAILED TO CLEAR. 
£1 :$$$$$$$$$$$$$$$5S$SSSSS$$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005354 28: 
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(3) 


005354 


005356 


005454 


18-AUG-80 09:15 


012737 000200 001124 


023737 001124 001126 
001402 


1 5 
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131 “TEST THAT CLOCK A BUFFER REGISTER BIT 6 CAN BE SET AND CLEARED 


seeeeeeeereeenererereetereerereereereeeeeerereeeerereereeeeeette 


:ATEST 32 *TEST THAT CLOCK A BUFFER REGISTER BIT 7 CAN BE SET AND CLEARED 


? SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
seb /FS OR GATES 


is PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 


*? 
SRRARARERAARAAAEAEAAEEAATAAAAAAAEAAAAAAAAAAAAEHEARAAAEARARAAKEREEAE 


18132: SCOPE 
z/CLEAR T THE BUFFER REGISTER. 
:/SET POR ERROR TYPEOUT S/B. 
;/READ THE BUFFER REGISTER. 
MOV #B1T7,S$GDDAT 


:* MOV SGDDAT ,@ABR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
MOV @ABR , SBDDAT ;/READ DEVICE REG ABR,PUT oi IN SBDDAT. 
CMP $GDDAT,SBDDAT ;/DID BIT 7 AND ONLY BIT 7 SET? 
BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 


32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104003 


ERROR 35 ;/ERROR CLOCK AS BUFFER REGISTER. 
;/BIT 7 FAILED TO BIT SET. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 
005037 001124 


005737 001126 
001401 


BR 2s ;/BR TO END SUBTEST. 
1$: :/TRY CLEARING BIT 1 ?. 

CLR SGDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 

;/NOW READ IT BACK. 

se MOV SGDDAT,@ABR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ABR 
se MOV @ABR,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 

TST SBDDAT 

BEQ 2s 3/1F ZERO-NO ERROR! 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104003 


ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 
;/BIT 7 FAILED TO CLEAR. 


32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


2$: 


SEQ 0060 
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005456 
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peeeeeneeeeeenerecenereeerereeeereneeerenereeetereneteeeeeretert 


:#TEST 33 *TEST THAT CLOCK A BUFFER REGISTER BIT 8 CAN BE SET AND CLEARED 
CLOCK 4 2 eh oe REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
:F/FS OR GATES 
te PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 
i eteneneceesenecececereeecececeeeeqecenenececeeneneteneneneeenee 
000004 TST33: SCOPE 
at a I BUFFER REGISTER. 
;/SET FOR ERROR TYPEOUT S/B. 
;/READ THE BUFFER REGISTER. 
012737 000400 001124 MOV #B1T8,SGDDAT 
:* MOV SGDDAT ,@ABR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
s@ MOV @ABR ,SBODAT wey DEVICE +: ABR, + el IN SBDDAT. 
023737 001124 001126 CMP $GDDAT,SBDDAT ;/DID BIT 8 AND ONLY BIT 8 SET? 
001402 BEQ 1$ 3/1F SO-LETS TRY CLEARING IT. 
37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 


;/ERROR CLOCK AS — - raat 
;/BIT 8 FAILED TO BIT SET 


33: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 BR 2$ ;/BR TO END Lo ah tA 
1$: :/TRY CLEARING BIT 8. 
005037 001124 CLR SGDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
;/NOW READ IT BACK. 
:* MOV SGDDAT ,@ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
se MOV @ABR, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2s 3/1F ZERO-NO ERROR! 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 ;/ERROR-CLOCK A wt vapesnanene 


:/BIT 8 FAILED TO CLEAR 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


or 








a 
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CRLPGC.P11 18-AUG-80 09:15 13 *TEST THAT CLOCK A BUFFER REGISTER ait 8 CAN BE SET AND CLEARED SEQ 0062 
(3) AT 
(3) 33 WTTTTTTTITITITITITITITITITITITTTITTTI TLL 
(6) ATEST 34 eTEST THAT CLOCK A BUFFER REGISTER BIT 9 CAN BE SET AND CLEARED 
(7) TSCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
7) :F/FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
(7) : 
(6) : | enaneeneneneceecereeeceececeeeceeeneneeenececeeneceeneneceetes 
(5) 005554 000004 1$134: SCOPE 
(3) :/CLEAR THE BUFFER REGISTER. 
(3) :/SET BI 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) :/READ THE BUFFER REGISTER. 
(3) 005556 012737 001000 001124 MoV #8119, $GDDAT 
(4) it MoV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) ;* MOV _—s @ABR, SBDDAT :/READ DEVICE REG ABR.PUT DATA IN SBDDAT. 
(3) 005604 023737 001124 001126 CMP $GDDAT, $BDDAT :/DID BIT 9 AND ONLY BIT 9 SET? 
(3) 005612 001402 BEQ 1$ 7IF SO-LETS TRY CLEARING IT. 
+: $$$$$$SSS$$SS$S$$S$$$SSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 005614 104003 ERROR 3 :/ERROR CLOCK AS BUFFER REGISTER. 
(3) ‘/BIT 9 FAILED TO BIT SET. 
£  {SSSSSSS$SSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
005616 000416 BR 2$ ;/BR TO END SUBTEST. 
005620 1$: :/TRY CLEARING BIT 9. 
005620 005037 001124 CLR $GDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
;7NOW READ IT BACK. 
;* MOV —s- SGDDAT@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
;* MOV —s @ABR,, SBDDAT :/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2$ :/1F ZERO-NO ERROR! 
£1 :$$$$$$$$$$$$SSSSSSSSSSSSS>> ERROR <<$$$$S$S5555555555555555SS 
104003 ERROR 3 ;JERROR-CLOCK A BUFFER REGISTER. 


:/B1 T 9 FAILED TO CLEAR 
3 SSSSSSSSSSSSSSSSSSSSSSESSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


ae! 


nn eee 
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005654 


005656 


005754 





L 
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80 09:15 134 “TEST THAT CLOCK A BUFFER REGISTER BIT 9 CAN BE SET AND CLEARED 


:/a 
ste reeneeeeenenereeeeereeeeerereeeereeeeeerenreeererreeeeeteeete 


:#TEST 35 *TEST THAT CLOCK A BUFFER REGISTER BIT 10 CAN BE SET AND CLEARED 
‘CLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
;#F/FS OR GATES 
is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT'’ 2 OCCURANCES PER PASS 
it eteceeceesenceeeeeeeceereeeeceqeennececenceceeeeteeqeeeteeeeces 
000004 1$135: SCOPE 
:/CLEAR THE BUFFER REGISTER. 
:/SET FOR ERROR TYPEOUT S/B8. 
;/READ THE BUFFER REGISTER. 
012737 002000 001124 MOV #81110, $GDDAT 
* MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
:* MOV @ABR ,SBDDAT ;/READ DEVICE REG ABR,PUT DATA ” SBDDAT. 
023737 001124 001126 CMP SGDDAT ,SBDDAT :/DID BIT 10 AND ONLY BIT 10 SET? 
001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 ;/ERROR CLOCK AS BUFFER —— 
:/BIT 10 FAILED TO BIT SET 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSESSSSSSSSSSSSSSSSSSSS 
000416 BR 2s :/BR TO END SUBTEST. 
1$: /TRY CLEARING BIT 10. 
005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
;7NOW READ IT BACK. 
Pi MOV SGDDAT,@ABR 3:/ PUT DATA FROM S$GDDAT TO DEVICE REG ABR 
it MOV @ABR, SBDDAT :/READ DEVICE REG ABR,PUT DATA IN S$BDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2$ :/1F ZERO-NO ERROR! 
35; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 3; /ERROR-CLOCK A BUFFER REGISTER. 
:/BIT 10 FAILED TO CLEAR. 
5: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS © 
2s: 





SEQ 0063 


—— 
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005754 


005756 


:/a 
3 peeeeeneneeereeeeereereeeeeeeereneeneeereeerereneeeeeeeeeereeeet 


;*TEST 36 *TEST THAT CLOCK A BUFFER REGISTER BIT 11 CAN BE SET AND CLEARED 


Sty A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
2 *F/F S OR GATES 


;* PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 


SRERRAAAEAAAEERAAAAEAERAAAAAAAEAAAAAAAAAAAAAAAAARAAAAAAREARAAAAAEAEEE 


*? 

S136: SCOPE 
:/CLEAR THE BUFFER REGISTER. 
:/SET BIT 11. 


s/SET FOR ERROR TYPEOUT S/B8. 
;/READ THE BUFFER REGISTER. 


000004 i 


012737 004000 001124 MOV #B81T11,$GDDAT 
:* MOV SGDDAT ,@ABR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
. 5@ MOV @ABR ,, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
023737 001124 001126 cMP $GDDAT,SBDDAT ;/DID BIT 11 AND ONLY BIT 11 SET? 
001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
33 :SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 ;/ERROR CLOCK AS BUFFER REGISTER. 


;/B1T 11 FAILED TO BIT SET. 
32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 BR 2s ;/BR TO END seek ta 
1$: ;/TRY CLEARING BIT 11. 
005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
;/NOW READ IT BACK. 
se MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
3* MOV @ABR , SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2s 3/1F ZERO-NO ERROR! 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 


:/BIT 11 FAILED TO CLEAR. 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSESSSSSSS 
2s: 
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) 
: ) PISITITICITIT ITIL ITT tLittiitiiiiitiiitiitiiitiiii titi 
{TEST 37 *TEST THAT CLOCK A BUFFER REGISTER BIT 12 CAN BE SET AND CLEARED 
(7) ?SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) :F/FS OR GATES 
(8) ie PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
;* 
(7) ; 
(6) eoccnnnneconsannconcoesonnceevesonsocacoocoseooooosoosoooccsees 
(5) 006054 000004 1$137: SCOPE 
(3) ;/CLEAR THE BUFFER REGISTER. 
(3) :/SET IT 
(3) :/SET FOR ERROR TYPEOUT S/8. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 006056 012737 010000 001124 MOV #B81T12,$GDDAT 
C4) 3* MOV SGDDAT,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) * MOV @ABR,SBDDAT ;/READ DEVICE REG ABR. PUT DATA IN SBDDAT. 
(3) 006104 023737 001124 001126 CMP SGDDAT, $BDDAT :/D1 BIT 12 AND ONLY BIT 12 SET? 
(3) 006112 001402 BEQ 1$ /IF SO*LETS TRY CLEARING IT. 
5; {SSSSSSSSSSSSSSSSSSSSSSSES>> ERROR <<$$$$$$$$S$SS5SSSSSSSSSSSS 
(3) 006114 104003 ERROR 3 3/ERROR CLOCK AS BUFFER REGISTER. 
(3) :/BIT 12 FAILED TO BIT SET. 
55: SSSSSSSSSSSSSSSSSSSSSSSS$>> ERROR <<S$S$SSSSSSSSSSSSSSSSSSSSSS 
(3) 006116 000416 BR 2$ 3/62 TO END SUBTEST, 
(3) 006120 1$: 3/TRY CLEARING BIT i2. 
(3) 006120 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
(4) 3* MOV SGDDAT ,@ABR ;/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) e MOV @ABR ,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 006144 005737 001126 TST SBDDAT 
(3) 006150 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
55 1SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006152 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 
7 :/BIT 12 FAILED TO CLEAR. 


33 SSSSSSSSSSSSSSSSSSSSSSESSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006154 2s: 


a 9s ee et 
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CRLPGC.P11 18-AUG-80 09:15 13 T THAT CLOCK A BUFFFR REGISTER BIT 12 CAN BE SET AND CLEARED 
(3) 3/# 
(7) saeeeneaeeneenerereeeeecereeeeeeereeeeeeeereeeerererereeeerettee 
(6) j TEST 40 *TEST THAT CLOCK A BUFFER REGISTER BIT 13 CAN BE SET AND CLEARED 
(7) ?SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
4 zeF/F S OR GATES 
+ ce PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
* 
(7) :° 
(6) + Seeeeneeeeeneeeeeereeeeeeeeerereneeeneeteenereneeeeeenereereres 
(5) 006154 000004 TST40: SCOPE 
(3) 3/CLEAR THE BUFFER REGISTER. 
(3) :/§ BIT 
(3) :/SET FOR ERROR TYPEOUT $/B. 
(3) ;/READ THE BUFFER REGISTER. . 
7 006156 012737 020000 001124 MOV #B1T13,$GDDAT 
st 3* MOV SGDDAT,@ABR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) ;* MOV @ABR ,SBDDAT ;/READ DEVICE REG ABR,PUT DATA 5 SBDDAT. 
(3) 006204 023737 001124 001126 | CMP SGDDAT ,SBDDAT /DID BIT 13 AND ONLY BIT 13 SET? 
Ye 006212 001402 BEQ 1$ :/1F SO-LETS TRY CLEARING IT. 
52 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006214 104003 ERROR 3 3;/ERROR CLOCK AS BUFFER +; eit 
3) :/BIT 13 FAILED TO BIT SET 
53 :$$$$$$$$$$$$$$$$$$$$SS$$$>> ERROR <<$SSSSSSSSSSSSSSSSSSSS55S$ 
(3) 006216 000416 BR 2$ ;/BR TO END SUBTEST, 
(3) 006220 1$: :/TRY CLEARING BIT i3. 
(3) 006220 005037 001124 CLR SGDDAT ;/CLEAR S$/B FOR TYPEOUT IF ANY. 
ort : 7NOW READ IT BACK. 
raf 3* MOV SGDDAT,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) ;* MOV @ABR ,SBDDAT :/READ DEVICE REG ABR,PUT DATA IN S$BDDAT. 
(3) 006244 005737 001126 TST SBDDAT 
oz} 906250 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006252 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 
7) :/B1T 13 FAILED TO CLEAR. 


22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 


SEQ 0066 
















LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 © 08. 738 PAGE 3-46 
CRLPGC.P11 18-AUG-80 09:15 T40 *TEST THAT CLOCK A BUFFER REGISTER BIT 13 CAN BE SET AND CLEARED 


a 


(3) 
( ) pteeeneetereenereereeeereeeereeeeeereeeeneneeereneereeeererenees 
(g) ;#TEST 41 *TEST THAT CLOCK A BUFFER REGISTER BIT 14 CAN BE SET AND CLEARED 
(7) : SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
7) iaF/FS OR GATES 
8) i. PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
*® 
(7) : 
(6) 3 | eenececerecceneecececececereneeceneenenenecnneceeqeceececeese 
(5) 006254 000004 TST41: SCOPE 
(3) :/CLEAR THE BUFFER REGISTER. 
(3) :/SET BIT 14 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) | ;/READ THE BUFFER REGISTER. 
+H 006256 012737 040000 001124 MOV #B1T14,S$GDDAT 
tap 3# MOV SGDDAT, @ABR :/ PUT DATA FROM $SGDDAT TO DEVICE REG ABR 
(4) i* MOV @ABR ,,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
(3) 006304 023737 001124 001126 : CMP SGDDAT,$BDDAT :/DID BIT 14 AND ONLY BIT 14 SET? 
(3) 006312 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
11 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006314 104003 ERROR 3 ;/ERROR CLOCK AS BUFFER REGISTER. 
(3) :/BIT 14 FAILED TO BIT SET 
12 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006316 000416 BR 2s ;/BR TO END SUBTEST. 
(3) 006320 1$: 3/TRY CLEARING BIT 14. 
(3) 006320 005037 001124 CLR $GDDAT /CLEAR $/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
vi 3* MOV SGDDAT, @ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(4) : i* MOV @ABR ,SBDDAT :/READ DEVICE REG ABR,PUT DATA IN S$BDDAT. 
(3) 006344 005737 001126 TST SBODAT 
+H 006350 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
122 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006352 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER REGISTER. 
7 :/BIT 14 FAILED TO CLEAR. 


57 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


SEQ 0067 | 


Cl 


eo  . 
2 ee 


LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C <a 506 (1063) 24-0CT-80 ? 08: 738 PAGE 3-47 
CRLPGC.P11 18-AUG-80 09:15 T41 *TEST THAT CLOCK A BUFFER REGISTER BIT 14 CAN BE SET AND CLEARED | SEQ 0068 















(3) se 
( ) PITITITILI TIT ITITT ITT tt ttt iii iii iii iii 
(6) :STEST 42 *TEST THAT CLOCK A BUFFER REGISTER BIT 15 CAN BE SET AND CLEARED 
(7) ¢ SCLOCK A BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@ i eF/FS OR GATES 
(8) i PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
(7) : 
(6)  » deeneneneeneneenceccecerceccceceneceenqenereneerereceeeeeseres 
(5) 006354 000004 i$142: SCOPE 
. 3) HATS a THE BUFFER REGISTER. 
(3) :/SET BIT 15. 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 006356 012737 100000 001124 MOV #B81T15,$GDDAT 
rt} 7* MOV SGDDAT,@ABR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ABR 
(4) ;* MOV @ABR ,SBDDAT 3; /READ arise REG ABR,PUT DATA ie SBDDAT. 
(3) 006404 023737 001124 001126 CMP SGDDAT,$BDDAT :/DID BIT 15 AND ONLY BIT 15 SET? 
te 006412 001402 BEQ 1$ 3/IF sp lets TRY CLEARING IT. 
5: SSSSSSSSSSSSSSSSSSSSESS$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006414 104003 ERROR 3 3;/ERROR CLOCK AS BUFFER + ian 
7 :/BIT 15 FAILED TO BIT SET 
£ ss S$SSS$SS$SSSSSSSSSSSSSESE$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006416 000416 BR 23 ;/BR TO END SUBTEST. 
(3) 006420 1$: :/TRY CLEARING BIT T 15. 
(3) 006420 005037 001124 CLR SGDDAT 3;/CLEAR S/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
44 3* MOV SGDDAT,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(4) * MOV @ABR, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN $BDDAT. 
(3) 006444 005737 001126 TST SBDDAT 
(3) 006450 001401 BEQ 2$ 3/1F ZERO-NO ERROR! 
+: S$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006452 104003 ERROR 3 ;/ERROR-CLOCK A BUFFER vipat 
(3) :/BIT 15 FAILED TO CLEAR 


52 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 


or 





E 
LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C a 306(1063) 24-OCT-80 09: :38 


PAGE 3-48 
CRLPGC.P11  18-AUG-80 09:15 The *TEST THAT CLOCK A BUFFER REGISTER BIT 15 CAN BE SET AND CLEARED SEQ 0069 
(3) P 
(3 poonsnehssonccnsecoorevensensensencoueceesessooeccesonseqeesecs 
(6) :STEST 43 *TEST THAT CLOCK B STATUS REGISTER BIT 11 CAN BE SET AND CLEARED 
(7) ‘CLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURESUSPECT INDIVIDUAL 
7) ieF/FS OR GATES 
(8) ge PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
*® 
(7) : 
(6) 5 a» eeneneceeeceeceneccececenereneneneranacenennereececenceneneees 
(5) 006454 000004 TS143: SCOPE 
(3) :/CLEAR THE STATUS REGISTER. 
(3) :/SET BIT 11. 
(3) :/SET FOR ERROR TYPEOUT S$/8. 
(3) | :/READ THE STATUS REGISTER. 
(3) 006456 012737 004000 001124 MOV #B1T11,$GDDAT 
(4) ;* MOV SGDDAT, a@BSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
(4) 3 MOV @BSR, SBDDAT : READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
(3) 006504 023737 001124 001126 CMP S$GDDAT,$BDDAT :/DID BIT 11 AND ONLY BIT 11 SET? 
(3) 006512 001402 BEQ 1$ nF SO-LETS TRY CLEARING IT. 
£:$$$$$$$$S$$SSSS$$$$SSS$$S>> ERROR <<SSSSSSSSSSSSSSSSSS55SSSSS 
(3) 006514 104005 ERROR 5 :/ERROR CLOCK BS STATUS REGISTER. 
(3) :/BIT 11 FAILED TO BIT SET. 
: ; ;S$$S$S$SS$SSSSSSSSSSSS$SS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006516 000416 BR 2$ ;/BR TO END SUBTEST. 
(3) 006520 1$: :/TRY CLEARING BIT i1. 
(3) 006520 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
(4) 3 MOV SGDDAT,@BSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) 3 MoV @BSR, SBDDAT :/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
(3) 006544 005737 001126 TST SBDDAT 
(3) 006550 001401 BEQ 2$ :/IF ZERO-NO ERROR! 
; |: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006552 104005 ERROR 5 : /ERROR-CLOCK B STATUS REGISTER. 
(3) :/BIT 11 FAILED TO CLEAR. 
£5 ;$$$$$$$$$$$$$$$$$$5S$$SS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006554 23: 


or 


'LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C macy 306(1063) 24-OCT-80 F OS: :38 PAGE 3-49 
CRLPGC.P11 18-AUG-80 09:15 14 eTEST THAT CLOCK B STATUS REGISTER BIT 11 CAN BE SET AND CLEARED 
(3) /8 
(3 seeeneneeenenteeeeretetererereeeeeeeeetereneeereeeeeterereeretes 
(6) jaTEst 4b *TEST THAT CLOCK 8 STATUS REGISTER BIT 7 CAN BE SET AND CLEARED 
(7) TSCLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
) ieF/FS OR GATES 
(8) PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
*® 
(7) : 
(6) ;  » eenecnecececcecccnerecccrececeerennceererecqsescencereceesscees 
(5) 006554 000004 TS144: SCOPE 
(3) :/CLEAR THE STATUS REGISTER. 
(3) :/SET BIT 7. 
(3) */SET FOR ERROR TYPEOUT S/B. 
(3) :/READ THE STATUS REGISTER. 
(3) 006556 012737 000200 001124 MOV #B1T7,$GDDAT 
(4) is MOV SGDDAT., aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) :* MOV @BSR,SBDDAT ;/READ DEVICE REG BSR, PUT DATA IN SBDDAT. 
(3) 006604 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 7 AND ONLY BIT 7 SET? 
(3) 006612 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
£:;$$$$$$S$$S$$$S$SS$SSSS5S$>> ERROR <<S$SSSSSSSSSSSSSSSSSSSSSSS 
(3) 006614 104005 ERROR 5 ;/ERROR CLOCK BS STATUS REGISTER. 
(3) :/BIT 7 FAILED TO BIT SET. 
5: ;$$$$$$$$$$$$$$$$$$$$$$$$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 006616 000416 BR 2$ :/BR TO END SUBTEST. 
(3) 006620 1$: :/TRY CLEARING BIT 7. 
(3) 006620 005037 001124 CLR $GDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) :7NOW READ IT BACK. 
(4) :* MoV S$GDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) 3 MoV @BSR,$BDDAT :/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
(3) 006644 005737 001126 TST SBDDAT 
(3) 006650 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
£5 :$$$$$$$$$$$$$$$SS$$S$SSS$>> ERROR <<SSSSSSSSSSSS3SSSSSSSSS55S 
(3) 006652 104005 ERROR 5 : /ERROR-CLOCK B STATUS REGISTER. 
(3) :/BIT 7 FAILED TO CLEAR. 


(3) 
(2) 


006654 





2 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2$: 


==?) 


eect BiAeepsT HE hie 


RLPGC.P11 


006654 


006656 


006754 


18-AUG-80 09:1 


8 306(1063) 738 PAGE 3-50 
*TEST THAT CLOCK B STATUS REGISTER BIT 7 CAN BE SET AND CLEARED 


24-0CT -80° 


SEQ 0071 


33 FWITITITITITITITITITITL LLL LiL 


*TEST THAT CLOCK B STATUS REGISTER BIT 6 CAN BE SET AND CLEARED 


FCLOCK B Hd REGISTER BIT EXERCISE. 


TEST 45 
iF /FS OR GAT 
ce 
i* 
000004 18145: SCOPE 
012737 000100 001124 MOV 
3* MOV 
3* MOV 
023737 001124 001126 CMP 
001402 BEQ 


;* PROBABLE SYNC POINT FOR THIS TEST:: 


#81T6,SGDDAT 
SGDDAT,@BSR 


@BSR ,SBDDAT 
heme 


ON FAILURE-SUSPECT INDIVIDUAL 


“DEVICE OUT’’ 7 OCCURANCES PER PASS 


RARER AAEKAEAAAAKAAAHERAAAAAAAARAAAAAAAAAAAAAAAAEARAAAEAAETE 


Ste BIT 6. STATUS REGISTER. 
;/SET FOR ERROR TYPEOUT S/B. 
;/READ THE STATUS REGISTER. 
3/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
;/READ DEVICE REG BSR, “y ee IN SBDDAT. 
BIT 6 SET? 


;/DID BIT 6 AND ONLY 
3/1F SO-LETS TRY CLEARING IT. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104005 ERROR 


5 


;/ERROR CLOCK BS STATUS REGISTER. 
;/BIT 6 FAILED TO BIT SET. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000416 * BR 
005037 001124 ; CLR 
3* MOV 
;* MOV 
005737 001126 TST 
001401 BEQ 


2s 
SGDDAT 


SGDDAT,@BSR 
@BSR , SBDDAT 
S$BDDAT 


;/BR TO END SUBTEST. 

:/TRY CLEARING BIT 6. 

3;/CLEAR S/B FOR TYPEOUT IF ANY. 
;/NOW READ IT BACK. 


;/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
;/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
3/1F ZERO-NO ERROR! 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104005 ERROR 


5 


;/ERROR-CLOCK B STATUS REGISTER. 
3/BIT 6 FAILED TO CLEAR. 


332 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


2s: 


~= 





LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-0CT-80 H OS: :38 PAGE 3-51 
CRLPGC.P11 18-AUG-B0 09:15 14 eTEST THAT CLOCK B STATUS REGISTER BIT 6 CAN BE SET AND CLEARED SEQ 0072 
(3) 
( ) j eeeeeneeeeeeeeeeeeeeeeeeeerereeereeeeereereeetterereeeeeeereeee 
(6) :ATEST 46 eTEST THAT CLOCK B STATUS REGISTER BIT 5 CAN BE SET AND CLEARED 
(7) SSCLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) zeF/FS OR GATES 
(8) iy PROBABLE SYNC POINT FOR THIS TEST:: “DEVICE OUT’ 2 OCCURANCES PER PASS 
*® 
(7) : 
(6) H s. eeeneneneeeenecceececececeeececeneececeececereeeececeececeeses 
(5) 006754 000004 15146: SCOPE 
(3) :/CLEAR THE STATUS REGISTER. 
(3) :/SET BIT 5. 
(3) °/SET FOR ERROR TYPEOUT S$/B. 
(3) :/READ THE STATUS REGISTER. 
(3) 006756 012737 000040 001124 MoV #8115, $GDDAT 
(4) :* MOV SGDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) :* MOV @BSR, SBDDAT ;/READ DEVICE REG BSR, Put DATA, IN SBDDAT. 
(3) 007004 023737 001124 001126 CMP $GDDAT,$BDDAT :/DID BIT 5 AND ONLY BIT 5 SET? 
(3) 007012 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
$s ;$$$$S$$SSS$$SSSSSSS$SSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007014 104005 ERROR 5 :/ERROR CLOCK BS STATUS REGISTER. 
(3) :/BIT 5 FAILED TO BIT SET. 
££: $$$$$$$$$$$SS$$SSSSS$$SS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSS5SS 
(3) 007016 000416 BR 2$ :/BR TO END SUBTEST. 
(3) 007020 1$: TRY CLEARING BIT 5. 
(3) 007020 005037 001124 CLR SGDDAT /CLEAR $/B FOR TYPEOUT IF ANY. 
3) :7NOW READ IT BACK. 
(4) 3 MOV SGDDAT.@BSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) it MoV @BSR,SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
(3) 007044 005737 001126 TST SBDDAT 
(3) 007050 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
£1 :$$$$$$$$$$$SSS$$$SSSSS$5S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSS555 
(3) 007052 104005 ERROR 5 ; /ERROR-CLOCK B STATUS REGISTER. 
G3) :/BIT 5 FAILED TO CLEAR. 
£1 :$$$$$$$$$$$$$S$$S$SSSS$8S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007054 2$: 


" 


‘eames ~ 


PAcewt DIAGNOSTIC MD-11-CRLPG-C 


RLPGC.P11 


007054 


007056 





18-AUG-80 09:15 


012737 000020 001124 


I 
MACY11 306(1063) 24-0CT-80 ry 738 PAGE 3-52 
146 *TEST THAT CLOCK B STATUS REGISTER BIT 5 CAN BE SET AND CLEARED SEQ 0073 


pteeeeeeeenereeceeeeeeeeeeeeeeeeneeenenereeeeerteerereereteetete 


:TEST 47 *TEST THAT CLOCK B STATUS REGISTER BIT 4 CAN BE SET AND CLEARED 


S#CLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
eF/FS OR GATES 


;* PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’ 2 OCCURANCES PER PASS 
-* 


-* 
RARER AAAEAAAATEAEAAEHEAEAAAAAAAAAAAAAARARERAEAAEARAAAAAAAAEAAAAAEE 


18147: SCOPE 
:/CLEAR THE STATUS REGISTER. 
:/SET FOR ERROR TYPEOUT S/B. 


;/READ THE STATUS REGISTER. 
MOV #B1T4,SGDDAT 


:* MOV SGDDAT,@BSR ;/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
MOV @BSR ,SBDDAT ;/READ DEVICE REG BSR,PUT tt IN SBDDAT. 
023737 001124 001126 CMP $GDDAT,SBDDAT :/DID BIT 4 AND ONLY BIT 4 SET? 
001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
33 2 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104005 ERROR 5 ;/ERROR CLOCK BS STATUS REGISTER. 
;/BIT 4 FAILED TO BIT SET. 
32 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
000416 BR 2s ;/BR TO END SUBTEST. 
1$: :/TRY CLEARING BIT 4. 
005037 001124 CLR SGDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
;7NOW READ IT BACK. 
3@ MOV SGDDAT,@BSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
se MOV @BSR,SBDDAT ;/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2s 3/1F ZERO-NO ERROR! 
322 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSESSSSSSSSSSSSS 
104005 ERROR 5 ;/ERROR-CLOCK B STATUS REGISTER. 


;/BIT 4 FAILED TO CLEAR. 


[3 :SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


2s: 


ae 





ee 


LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-0CT-80 68. 38 
CRLPGC .P11 


007154 


007156 


007254 


AGE 3-53 
18-AUG-80 09:15 T4 *TEST THAT CLOCK B STATUS REGISTER BIT 4 CAN BE SET AND CLEARED SEQ 0074 


:/a 
jteeeneetereneeeeeceeeeeeeeeeeenererererenreereererteeeeeeretete 


:ATEST 50 *TEST THAT CLOCK 6 STATUS REGISTER BIT 3 CAN BE SET AND CLEARED 
:*CLOCK 8 He REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 


7 
~ PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 


:? 
SPER AAAAAAAAAAAAAAEEEARATAAEREARAAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAEE 


000004 18150: SCOPE 
:/ CLEAR THE STATUS REGISTER. 
:/SET FOR ERROR TYPEOUT S/B. 
s/READ THE STATUS REGISTER. 
012737 000010 001124 MOV #B81T3,SGDDAT 
i* MOV SGDDAT,@BSR 3/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
3* MOV @BSR,SBDDAT :/READ DEVICE REG BSR, PUT DATA, IN SBDDAT. 
023737 001124 001126 CMP $cDDAT, $BDDAT :/DID BIT 3 AND ONLY BIT 3 SET? 
001402 BEQ 1$ :/1F SO-LETS TRY CLEARING IT. 
5; {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104005 ERROR 5 ;/ERROR CLOCK BS STATUS REGISTER. 
:/BIT 3 FAILED TO BIT SET 
5; {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
000416 BR 2$ ;/BR TO END SUBTEST 
1$: :/TRY CLEARING BIT 3. 
005037 001124 CLR SGDDAT :/CLEAR S/B FOR TYPEOUT IF ANY. 
:7NOW READ IT BACK. 
3* MOV SGDDAT,aBSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
;* MOV @BSR,SBDDAT :/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
005737 001126 TST SBDDAT 
001401 BEQ 2$ 3/1F ZERO-NO ERROR! 
5; {8SSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104005 ERROR 5 : /ERROR-CLOCK B STATUS REGISTER. 


:/BIT 3 FAILED TO CLEAR. 
27 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 





a ———$$ 


x 
LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-0CT-80 09:38 PAGE 3-54 





CRLPGC.P11 18-AUG-80 09:15 T5 *TEST THAT CLOCK B STATUS REGISTER BIT 3 CAN BE SET AND CLEARED SEQ 0075 
(3) 
( ) seeeeneneenereneercerereeereereerereerereneeeeeetenteneeeretetee 
(¢) j TEST 51 *TEST THAT CLOCK B STATUS REGISTER BIT 2 CAN BE SET AND CLEARED 
(7) ¢ SCLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
+4 eF/FS OR GATES 
eS) - PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 
(7) ; 
(6) it steaneeeceesececeececeeeecececenceteceeeececeeneceeneneceeneees 
(5) 007254 000004 TST51: SCOPE 
(3) :/CLEAR THE STATUS REGISTER. 
(3) :/SET BIT 2. 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) :/READ THE STATUS REGISTER. 
(3) 007256 012737 000004 001124 MOV #B1T2,SGDDAT 
oe 3* MOV SGDDAT,@BSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) 3 MOV @BSR,SBDDAT :/READ apevace REG BSR,PUT DATA, IN SBDDAT. 
(3) 007304 023737 001124 001126 CMP SGDDAT,SBDDAT :/D1D T 2 AND ONLY BIT 2 SET? 
(3) 007312 001402 BEQ 1$ /1F SO-LETS TRY CLEARING IT. 
11 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007314 104005 ERROR 5 :/ERROR CLOCK BS STATUS REGISTER. 
te 3/BIT 2 FAILED TO BIT SET. 
5 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSESSSSSSSSSSSSSSS 
(3) 007316 000416 BR 28 3/BR TO END SUBTEST 
(5) 007320 1$: 3/TRY CLEA RING BIT 2. 
(3) 007320 005037 001124 CLR SGDDAT /CLEAR S/B FOR TYPEOUT IF ANY. 
(3) NOW READ IT BACK. 
ri 3 MOV SGDDAT,@BSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
(4) 3* MOV @BSR,SBDDAT ;/READ DEVICS REG BSR,PUT DATA IN SBDDAT. 
(3) 007344 005737 001126 TST SBDDAT 
(3) 007350 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
11 SSSS$SSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007352 104005 ERROR 5 ;/ERROR-CLOCK B STATUS REGISTER. 
(3) :/BIT 2 FAILED TO CLEAR. 
122 $SSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007354 2S: 


LPA-KW11K waa woh MD-11-CRLPG-C MACY11 306(1063) 24-0CT-80 + 03: :38 





PAGE 3-55 
CRLPGC.P11  18-AUG-80 09:15 151 TEST THAT CLOCK 8 STATUS REGISTER BIT 2 CAN BE SET AND CLEARED SEQ 0076 
(3) 8 
( ) 1 peoeoseboseossencoecesocoevoocescnccosoqosovecoveoosconeooooenes 
(6) jATEST 52 eTEST THAT CLOCK B STATUS REGISTER BIT 1 CAN BE SET AND CLEARED 
(7) FSCLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) ie /F § OR GATES 
(8) iy PROBABLE SYNC POINT FOR THIS TEST:: “DEVICE OUT’ 2 OCCURANCES PER PASS 
*® 

(7) : 
(6) i eteneenenenenececeeeeeceeeeeeeeeetecececqeqeqeceneeceeeeeenes 
(5) 007354 000004 $152: SCOPE 
(3) s/CLEAR THE STATUS REGISTER. 
(3) °/7SET FOR ERROR TYPEOUT S/B. 
(3) :/READ THE STATUS REGISTER. 
(3) 007356 012737 000002 001124 MOV —«- #BIT1, $GDDAT 
(4) :* MOV _—s SGDDAT, @BSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) :* MOV -—« @BSR, SBDDAT :/READ DEVICE REG BSR.PUT DATA IN SBDDAT. 
(3) 007404 023737 001124 001126 CMP  $GDDAT,$BDDAT :/DID BIT 1 AND ONLY BIT 1 SET? 
(3) 007412 001402 BEOSCté‘zNISN :/1F SO-LETS TRY CLEARING IT. 

+ :SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007414 104005 ERROR 5 :/ERROR CLOCK BS STATUS REGISTER. 
(3) :/BIT 1 FAILED TO BIT SET 

+ :S$SSSS$SSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007416 000416 BR 2$ ;/BR TO END SUBTEST. 
(3) 007420 1$: :/TRY CLEARING BIT 7. 
(3) 007420 005037 001124 CLR —«- SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
G3) ;7NOW READ IT BACK. 
(4) :* MOV —s SGDDAT, aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) :* MOV —s @BSR, SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
(3) 007444 005737 001126 TST  $BDDAT 
(3) 007450 001401 BEQStié«é?S :/1F ZERO-NO ERROR! 

+ :$8$SS$S$$$SSSSSSSSSSSS$$$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007452 104005 ERROR 5 :/ERROR-CLOCK B STATUS REGISTER. 
G) :/BIT 1 FAILED TO CLEAR. 

+ :$$$$$$$$$$$SSS$$S$SSS$$$$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

007454 2s: 
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CRLPGC.P11 18-AUG-80 09:15 15 eTEST THAT CLOCK @ STATUS REGISTER BIT 1 CAN BE SET AND CLEARED SEQ 0077 
(3) 5 
( y 1 senenceteseoccncccesooscqosoorccosecossnoesooooosoonooqeeesesers 
(6) jTEST 53 eTEST THAT CLOCK @ STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 
(7) FSCLOCK B STATUS REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
7) se /F $ OR GATES 
(8) ce PROBABLE SYNC POINT FOR THIS TEST:: “DEVICE OUT’ 2 OCCURANCES PER PASS 
°® 
(7) : 
(6) ; | dea neneneneennceencecceeceeeceneeenceceneecececeeceeseneneeeene 
(5) 007454 000004 TS153: SCOPE 
(3) :/CLEAR THE STATUS REGISTER. 
(3) :/SET BIT 
(3) °/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE STATUS REGISTER. 
(3) 007456 012737 000001 001124 MOV #8110, $GDDAT 
(4) ;* MOV S$GDDAT, aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) :* MOV @BSR, SBLDAT :/READ DEVICE REG BSR.PUT DATA IN SBDDAT. 
(3) 007504 023737 001124 001126 CMP S$GDDAT,$SBDDAT :/DID BIT 0 AND ONLY BIT 0 SET? 
(3) 007512 001402 BEQ 1$ :7IF SO-LETS TRY CLEARING IT 
+; SSSS$SSSSSSSSS$SSSSS$SSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007514 104005 ERROR 5 :/ERROR CLOCK BS STATUS REGISTER. 
(3) */BIT 0 FAILED TO BIT SET 
£1: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007516 000416 BR 28 :/BR TO END SUBTEST. 
(3) 007520 1$: :/TRY CLEARING BIT 0. 
(3) 007520 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
GS) :7NOW READ IT BACK. 
(4) 3 MoV SGDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(4) :* MOV @BSR,SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT 
(3) 007544 005737 001126 TST SBDDAT 
(3) 007550 001401 BEQ 2$ :/1F ZERO-NO ERROR! 
£1 S$$$SSSSSSSSSSSSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007552 104005 ERROR 5 /ERROR-CLOCK B STATUS REGISTER. 
G) :/BIT 0 FAILED TO CLEAR. 


7 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007554 2s: 








i) 
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CRLPGC.P11  18-AUG-80 09:15 15 *TEST THAT CLOCK B STATUS REGISTER BIT 0 CAN BE SET AND CLEARED 

(3) Fy 
( ) s ponecnet onennnnncooscocconscoussoeconscoosoossoqssonsooseooorers 
(6) jATEST 54 *TEST THAT CLOCK 8 BUFFER REGISTER BIT 0 CAN BE SET AND CLEARED 
(7) ‘SCLOCK B BUFFER REGISTER BIT EXERCISE. ON FAILURE~SUSPECT INDIVIDUAL 
@) aF/FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
(7) : 
(6) : | eeanenereseneceeeecerececeeeeeceeeneneceneceteceenenenenececes 
(5) 007554 000004 +8154: SCOPE 
(3) s/CLEAR THE BUFFER REGISTER. 
(3) :/SET FOR ERROR TYPEOUT $/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 007556 012737 000001 001124 MOV #B1T0,$GDDAT 
(4) 3* MOV SGDDAT, @BBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) 3* MOV @BBR,SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 007 023737 001124 001126 CMP SGDDAT,SBDDAT :/DID BIT 0 AND ONLY BIT 0 SET? 
(3) 007612 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 

: : SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSESSSSSSSSSSSSSS 
(3) 007614 104006 ERROR 6 ;/ERROR CLOCK BS BUFFER REGISTER. 
(5) :/BIT 0 FAILED TO BIT SET. 

£ : SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007616 000416 BR 2$ ;/BR TO END SUBTEST. 
(3) 007620 1$: /TRY CLEARING BIT 0. 
(3) 007620 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) ;7NOW READ IT BACK. 
(4) 3* MOV SGDDAT, aBBR ;/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) * MOV @BBR, SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 007644 005737 001126 TST SBDDAT 
(3) 007650 001401 BEQ 2$ 3/1 ZERO-NO ERROR! 

$s :SSSSSSSSSSSSSSSSSSSSSSESS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007652 104006 ERROR 6 ;/ERROR-CLOCK 8 BUFFER REGISTER. 
(3) :/BIT 0 FAILED TO CLEAR 

5: {$$$SSSSSSSSSSS$SSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007654 2s: 


SEQ 0078 


a eee 
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CRLPGC.P11  18-AUG-80 09:15 154 EST THAT CLOCK 8 BUFFER REGISTER BIT 0 CAN BE SET AND CLEARED SEQ 0079 

(3) 
( ) seeeeeneerereneeeereeeeereeeeeeerenreeneereereeeeeereeeeereeeete 
(6) j TEST 55 *TEST THAT CLOCK 8 BUFFER REGISTER BIT 1 CAN BE SET AND CLEARED 
(7) ?SCLOCK B BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) aF/FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
(7) ie 
(6) _( 
(5) 007654 000004 18155: SCOPE 
(3) ;/CLEAR THE BUFFER REGISTER. 
(3) :/SET BIT 
(3) 3/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 007656 012737 000002 001124 MOV #B1T1,$GDDAT 
(4) 3* MOV SGDDAT, aBBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) 3* MOV @BBR ,SBDDAT 3/READ DEVICE oy cane DATA IN SBDDAT. 
(3) 007706 023737 001124 001126 CMP SGDDAT,SBDDAT :/DID BIT 1 AND ONLY BIT 1 SET? 
(3) 007712 001402 BEQ 1$ :/1F SO-LETS Arey CLEARING IT. 

5; {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007714 104006 ERROR 6 ;/ERROR CLOCK BS BUFFER REGISTER. 
t « :/BIT 1 FAILED TO BIT SET. 

5: {SSSSSSSSSSSSSSSSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007716 000416 BR 2$ ;/BR TO END SUBTEST. 
(3) 007720 1$: :/TRY CLEARING BIT 1. 
(3) 007720 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) ;7NOW READ IT BACK. 
(4) ;* MOV SGDDATaBBR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) * MOV @BBR,SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN S$BDDAT. 
(3) 007744 005737 001126 TST SBDDAT 
(3) 007750 001401 BEQ 2$ :/1F ZERO-NO ERROR! 

5: {SS$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSESSSSSSSSSSSSSSSS 
(3) 007752 104006 ERROR 6 : /ERROR-CLOCK B BUFFER, REGISTER. 
(3) :/BIT 1 FAILED TO CLEAR 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 007754 2s: 
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15 *TEST THAT CLOCK B BUFFER REGISTER BIT 1 CAN BE SET AND CLEARED 


(3) 
( ) peeeeeneeneeneerenerereeeeeereerereeeetenes SARAARAAAARAAAARAAAAREAE 
:TEST 56 *TEST THAT CLOCK 8 BUFFER REGISTER BIT 2 CAN BE SET AND CLEARED 
(7) ?SCLOCK B BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) aF/FS OR GATES 
(8) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
(7) :* 
(6) } MITTITITITITITITILITITITILLTITLLLiTilitiiiii lili lili 
(5) 007754 000004 18156: SCOPE 
(3) :/ CLEAR THE BUFFER REGISTER. 
(3) :/SET FOR ERROR TYPEOUT S/8. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 007756 012737 000004 001124 MOV #B1T2,S$GDDAT 
(4) * MOV SGDDAT,aBBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) * MoV @BBR, SBDDAT i/READ DEVICE REG BBR. PUT DATA IN SBDDAT. 
(3) 010004 023737 001124 001126 CMP $GDDAT,S$BDDAT :/DID BIT 2 AND ONLY BIT 2 SET? 
(3) 010012 001402 BEQ 1$ S7IF SO-LETS ATR CLEARING IT. 
5; {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010014 104006 ERROR 6 ;/ERROR CLOCK BS BUFFER REGISTER. 
(3) :/BIT 2 FAILED TO BIT SET. 
5 5 {$$$$$SSSSSS$SSSSSSSSESESS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010016 000416 BR 2$ ;/BR TO END SUBTEST, 
(3) 010020 i$: :/TRY CLEARING BIT 2. 
(3) 010020 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) ;7NOW READ IT BACK. 
(4) * MOV SGDDAT, aBBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) :* MOV @BBR, SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 010044 005737 001126 TST SBDDAT 
(3) 010050 001401 BEQ 3/1F ZERO-NO ERROR! 
5: {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSESSSSSSSSSSSSSSS 
(3) 010052 104006 ERROR 6 ;/ERROR-CLOCK B BUFFER REGISTER. 
(3) :/BIT 2 FAILED TO CLEAR. 


sss SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSS5S5 


SS Sh 
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3-60 
CRLPGC.P11  18-AUG-80 09:15 156 *TEST THAT CLOCK B BUFFER REGISTER BIT 2 CAN BE SET AND CLEARED SEQ 0081 
(3) r) 
( ) s pueesenbocceuseneeuceusonesersensoossqqssonsccqosssaqeqoueeesens 
(6) jSTEst 57 *TEST THAT CLOCK 8 BUFFER REGISTER BIT 3 CAN BE SET AND CLEARED 
(7) ‘ SCLOCK 8 BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
7 :F/FS OR GATES 
(8) ie PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’ 2 OCCURANCES PER PASS 
;* 

(7) ; 
(6)  » ee neneneceeeecencececececccecenenncseennneceenerenececeesereces 
(5) 010054 000004 18157: SCOPE 
(3) :/ CLEAR THE BUFFER REGISTER. 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 010056 012737 000010 001124 MOV #B81T3,$GDDAT 
(6) 3* MOV SGDDAT, @BBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) i ;* MOV @BBR,SBDDAT /READ DEVICE | REG BBR,PUT DATA, IN SBDDAT. 
(3) 010104 023737 001124 001126 CMP SGDDAT,$BDDAT :/DID BIT ONLY BIT 3 SET? 
(3) 010112 001402 BEQ 1$ :/1F SO-LETS ATR CLEARING IT. 

5: SSSSSSS$SSS$SSSSSSSSSSESS$SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010114 104006 ERROR 6 :/ERROR CLOCK BS BUFFER REGISTER. 
(3) :/BIT 3 FAILED TO BIT SET. 

5 5; $$$$S$S$SS$SS$SS$S$S5SS$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010116 000416 BR 2s :/BR TO END SUBTEST. 
(3) 010120 1$: :/TRY CLEARING BIT 3. 
(3) 010120 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TyPEOUT IF ANY. 
(5) :7NOW READ IT BACK 
(4) ;* MOV SGDDAT,aBBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) 3* MOV @BBR ,SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN S$BDDAT. 
(3) 010144 005737 001126 TST SBDDAT 
(3) 010150 001401 BEQ 2s :/1F ZERO-NO ERROR! 

: ;$8$$$SS$SSSSSSSSSSSSSS5SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010152 104006 ERROR 6 ;/ERROR-CLOCK B BUFFER REGISTER. 
(3) :/BIT 3 FAILED TO CLEAR. 

;  {$$$S$SSSSSSSSSSSSSSSSSSSES>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSS5 
(3) 010154 2s: 





ar 
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CRLPGC.P11 18-AUG-80 09:15 15 *TEST THAT CLOCK B BUFFER REGISTER BIT 3 CAN BE SET AND CLEARED 
(3) 
( ) peeeenedeneeneereeeerereeeeerererereteeereerereneeeteeeereeeeets 
(6) jATEST 60 eTEST THAT CLOCK 8 BUFFER REGISTER BIT 4 CAN BE SET AND CLEARED 
(7) ?SCLOCK 8 BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
@) :F/FS OR GATES 
(8) ce PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
*@ 

(7) : 
(6) | eeanenenenneaeceeneeeeeecececeeeeeeneceeqececeenereeneneeeesens 
(5) 010154 000004 18160: SCOPE 
(3) s/CLEAR THE BUFFER REGISTER. 
(3) */SET BIT 
(3) :/SET FOR ERROR TYPEOUT S/8. 
(3) 3;/READ THE BUFFER REGISTER. 
(3) 010156 012737 000020 001124 MOV #B1T4,$GDDAT 
34 3@ MOV SGDDAT,aBBR :/ PUT DATA FROM S$GDDAT TO DEVICE REG BBR 
(4) 3* MOV @BBR ,SBDDAT he DEVICE REG “ 4 DATA IN SBDDAT. 
(3) 010204 023737 001124 001126 CMP SGDDAT , SBDDAT “7DiD BIT 4 AND ONLY BEF r-G StI —— 
t ¢ 010212 001402 BEQ 1$ BAT SO-LETS "ee CLEARING IT. 

5; SSSSSSSSSSSSSSSSESSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010214 104006 ERROR 6 :/ERROR CLOCK BS BUFFER REGISTER. 
(3) :/BIT 4 FAILED TO BIT SET. 

5; {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010216 000416 BR 2$ :/BR TO END SUBTEST, 
(3) 010220 1$: s/TRY CLEARING BIT 4. 
(3) 010220 005037 001124 CLR SGDDAT CLEAR S/B FOR TYPEOUT IF ANY. 
$f Blas READ IT BACK. 
i! 3t MOV SGDDAT,a@BBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) se MOV @BBR,, SBDDAT :/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 010244 005737 001126 TST SBDDAT 
(3) 010250 001401 BEQ 2$ :/1F ZERO-NO ERROR! 

5; {S$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010252 104006 ERROR 6 ;/ERROR-CLOCK B BUFFER REGISTER. 
ty :/BIT 4 FAILED TO CLEAR. 

5; {$$$$$S$SSS$SSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010254 2$: 


ae 
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CRLPGC.P11 = 18=AUG-80 09:15 T60 = ®TEST THAT CLOCK B BUFFER REGISTER BIT 4 CAN BE SET AND CLEARED 
(3) 5 
(3) s pocnennbanonnapnncsenesseyeqsosccossensensensqosuvensgoqrecseee 
(6) :aTEsT 61 *TEST THAT CLOCK B BUFFER REGISTER BIT 5 CAN BE SET AND CLEARED 
(7) *CLOCK B BUFFER REGISTER BIT EXERCISE. ON FAILURE~SUSPECT INDIVIDUAL 
@ ;#F/FS OR GATES 
(8) + PROBABLE SYNC POINT FOR THIS TEST:: “DEVICE OUT" 2 OCCURANCES PER PASS 
-* 

(7) : 
(6) :  - eoeceecccrcceccccccecceceerevenceueneceneecsenececeececeeescece 
(5) 010254 000004 TS161: SCOPE 
(3) :/CLEAR THE BUFFER REGISTER. 
(3) ;/SET B 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 010256 012737 000040 001124 MOV =: #BI TS, SGDDAT 
(4) i MOV  $GDDAT,@BBR —;/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) i MOY BBR SBDDAT _ ;/READ DEVICE REG BBR.PUT DATA IN SBDDAT. 
(3) 010304 023737 001124 001126 CMP = $GDDAT, SBDDAT =: /DID BIT 5 AND ONLY BIT 5 SET? 
(3) 010312 001402 BeOS S/T SO-LETS TRY CLEARING IT. 

; ss SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010314 104006 ERROR 6 ;/ERROR CLOCK BS BUFFER REGISTER. 
(3) ;/BIT 5 FAILED TO BIT SET. 

; ss SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010316 000416 BR 28 :/BR TO END SUBTEST. 
(3) 010320 18: :/TRY CLEARING BIT 5. 
(3) 010320 005037 001124 CLR = SGDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
(3) ;7NOW READ IT BACK. 
(6) :* MOV  SGDDAT,@BBR —:/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) i MOV  @BBR,SBDDAT ==; /READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 010344 005737 001126 TST —- SBDDAT 
(3) 010350 of 1401 BEQ 8 :/1F ZERO-NO ERROR! 

; 1: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010352 104006 ERROR 6 ;/ERROR=CLOCK B BUFFER REGISTER. 
(3) ;/B1T 5 FAILED TO CLEAR. 

; : :SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010354 28: 
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PAGE 3-63 
CRLPGC.P11  18-AUG-80 09:15 161 *TEST THAT CLOCK B BUFFER REGISTER BIT 5 CAN BE SET AND CLEARED SEQ 0084 
(3) # 
( ) sponccveboreoncovececcoesocoocsoooqorooecooreeecoonsooseosocees 
(6) :ATEST 62 *TEST THAT CLOCK 8 BUFFER REGISTER BIT 6 CAN BE SET AND CLEARED 
(7) CLOCK B BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
4 iaF 7FS OR GATES 
(8) ce PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
*® 

(7) : 
(6) tt enaneeeencenecececececeececerecenecececeeneneneneneceneeqerenes 
(5) 010354 000004 i$162: SCOPE 
(3) i/CLEAR THE BUFFER REGISTER. 
(3) :/SET BIT 6. 
(3) :/SET FOR ERROR TYPEOUT S$/B. 
(3) ;/READ THE BUFFER REGISTER. 
(3) 010356 012737 000100 001124 MOV #B1T6,SGDDAT 
(4) :* MOV SGDDAT,@BBR :/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
(4) se MOV @BBR ,SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 010404 023737 001124 001126 CMP SGDDAT,$BDDAT :/DID BIT 6 AND ONLY BIT 6 SET? 
(3) 010412 061402 BEQ 1$ /IF SO-LETS TRY CLEARING IT. 

+; SSSSSSSSSSSSSSSSSSSSSSESS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010414 104006 ERROR 6 ;/ERROR CLOCK BS BUFFER REGISTER. 
(3) :/BIT 6 FAILED TO BIT SET. 

3; {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010416 000416 BR 2$ :/BR TO END SUBTEST, 
(3) 010420 1$: /TRY CLEAR! NG BIT 6. 
(3) 010420 005037 001124 CLR SGDDAT :/CLEAR $/B FOR TYPEOUT IF ANY. 
(3) ;7NOW READ IT BACK. 
(4) ;t MOV SGDDAT, aBBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) :* MOV @BBR,SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 010444 005737 001126 TST SBDDAT 
(3) 010450 001401 BEQ 2$ :/1F ZERO-NO ERROR! 

: : ;$$$$$S$S$S$S$SSSSSS5SSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010452 104006 ERROR 6 ;/ERROR-CLOCK B BUFFER REGISTER. 
(3) :/BIT 6 FAILED TO CLEAR. 


15 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2s: 
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CRLPGC.P11 18-AUG-80 09:15 *TEST THAT CLOCK B BUFFER REGISTER BIT 6 CAN BE SET AND CLEARED SEQ 0085 
(3) 
(7) s eeeeeeeeeereneereereeeeeeerereeeneeeeeeeeretereeererereeretete 
iH :ATEST 63 *TEST THAT CLOCK B BUFFER REGISTER BIT 7 CAN BE SET AND CLEARED 
(7) CLOCK B BUFFER REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
$4 F/FS OR GATES 
3) ie PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
;* 
(7) ; 
(6) o  eueuececececcecerccececeencecnenececennneecerenstececcenecececs 
(5) 010454 000004 TST63: SCOPE 
(3) ha THE BUFFER REGISTER. 
(3) ;/SET BIT 7. 
(3) :/SET FOR ERROR TYPEOUT S/B. 
(3) ;/READ THE BUFFER REGISTER. 
6 010456 012737 000200 001124 MOV #B1T7,$GDDAT 
44 ge MOV SGDDAT ,aBBR ;/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) :* MOV @BBR ,SBDDAT ;/READ DEVICE REG BBR,PUT pa IN $BDDAT. 
(3) 010504 023737 001124 001126 CMP SGDDAT,SBDDAT :/DID BIT 7 AND ONLY BIT 7 SET? 
te 010512 001402 BEQ 1$ :/IF SO-LETS TRY CLEARING IT. 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010514 104006 ERROR 6 ;/ERROR CLOCK BS BUFFER  vemenan, 
te ;/BIT 7 FAILED TO BIT SET 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010516 000416 BR 2$ ;/BR TO END ve gh AP 
(3) 010520 1$: :/TRY CLEARING BIT 7. 
(3) 010520 005037 001124 CLR SGDDAT ;/CLEAR S/B FOR TYPEOUT IF ANY. 
$ « ;/NOW READ IT BACK. 
ot 7 MOV SGDDAT ,@BBR ;/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
(4) :* MOV @BBR , SBDDAT ;/READ DEVICE REG BBR,PUT DATA IN SBDDAT. 
(3) 010544 005737 001126 TST SBDDAT 
i? 010550 001401 BEQ 2s 3/1F ZERO-NO ERROR! 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010552 104006 ERROR 6 ;/ERROR-CLOCK B BUFFER REGISTER. 
+h ;/BIT 7 FAILED TO CLEAR. 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(3) 010554 2$: 
1779 -SBTTL * 
1780 -SBTTL * PHASE 2 ADVANCED BASIC LOGIC TESTS 
1781 -SBTTL * 
1782 
1788 
1789 PL eeeeaeeeedaeeeeeeeeee eee ee eeeteeaeKteeeeeeeKeeKeneeteeeKerseees 
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RLPGC.P11  18-AUG-80 09:15 T64 *TEST THAT CLOCK A'S COUNT REGISTER IS CLEAR SEQ 0086 
(3) Z*TEST 64 *TEST THAT CLOCK A’S COUNT REGISTER IS CLEAR 
(5) :* 
(5) S*CLOCK A COUNT REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
a 3*F/FS OR GATES 
;* 
(6) :* PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’' 2 OCCURANCES PER PASS 
;* 
3 ; 
(3) ti RARE AAARAARAAEEHAEAAEKARAAAEAAAAAAAAAAAAARARAAAARAAARAAAAAAAAEAEE 
33 010554 000004 T$164: SCOPE 
1791 ;SELECT MODE 0. 
1792 SCLEAR THE BUFFER REGISTER. BUFFER 
1795 REGISTER WILL BE TRANSFERRED TO 
1794 ;COUNT REGISTER SINCE THIS IS MODE 0. 
1795 010556 005037 001124 CLR SGDDAT 
RAL 3* MOV SGDDAT,@ASR 3;/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
1$93 3* MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
1799 010602 005037 001124 CLR SGDDAT EXPECT TO READ BACK ALL 0°S. 
oy ;READ THE COUNT REGISTER - IT SHOULD BE CLEAR. 
(1) 3* MOV @ACR,SBODAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
1802 010616 005737 001126 TST SBDDAT 
Ht 10622 001401 BEQ 1$ 3BR IF YES TO NEXT TEST 
1805 
3 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSESSSSSSSSSSSSS 
1806 010624 104004 ERROR 4 sERROR - ae A'S COUNTER REGISTER 
1807 | NOT CLEAR 
1809 
; ss SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1810 010626 1$: 
1812 PRAeeeeeeeeeeeeeeeeeeeeeeeeeereteeeeeteeeeKeetKeKteeKrereAeAeeee 
(3) LATEST 65 *TEST CLOCK A'S COUNT REGISTER WITH 125252 PATTERN 
(5) 3t 
(5) T*CLOCK A COUNT REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
(3) aF/FS OR GATES | 
(6) is PROBABLE SYNC POINT FOR THIS TEST:: "DEVICE OUT’’ 2 OCCURANCES PER PASS 
2 * 
(3) SPORE AHAAATAAAAAAAAAAARATAAAAAAAAAAAAAAAAARAAAARAAAAAAREE 
fe} 010626 000004 18165: SCOPE 
1814 ;SELECT MODE 0. 
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CRLPGC.P11 18-AUG-80 09:15 EST CLOCK A'S COUNT REGISTER erin #95252 PATTERN SEQ 0087 
1815 LOAD THE a9. Tt REGISTER WITH 
18'6 ;PATTERN 1 L BE 
181 ST AANEFERRED 7 5° THe COUNT REGISTER 
1818 SSINCE THIS 15° MOD MODE 0. 
bb 010630 005037 001124 CLR SGDDAT 
1821 3 MOV SGDDAT ,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
18e¢ 010644 012737 125252 001124 MOV #125252, $GDDAT ;SET EXPECTED y A ole IN CASE OF 
182 s;NEED OF ERROR T 
3 ‘READ THE COUNT REGISTER 
1435 3* MOV SGDDAT, @ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
mi] 3* MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
1828 010672 023737 001124 001126 CMP SGDDAT,SBDDAT ;DID ALL THE BITS AND NO OTHER BITS 
1829 :COME THROUGH? 
13 010700 001401 BEQ 1$ °BR IF YES TO NEXT TEST. 
1832 ~ 
12 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1833 010702 104004 ERROR 4 sDATA ERROR CLOCK A _ PATTERN ‘125252"° 
1834 sFAILED TO TRANSFER PROPERLY BETWEEN 
1835 ‘BUFFER AND COUNT REGISTERS. 
1837 
12 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1838 010704 1$: 
1840 33 REAR AAEAARAAAEAAEE AEA ARAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAEE 
(3) s*TEST 66 *TEST CLOCK A'S COUNT REGISTER WITH 052525 PATTERN 
(5) 
(5) ‘CLOCK A COUNT REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
> pF /FS OR GATES 
a ce PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 OCCURANCES PER PASS 
3% 
@ 2 
(3) 23 RAAT AAAAAARAAAAAAAARARAAARARARAREARAERAARAAAAAAAAARATEAE 
ost? 010704 000004 TS166: SCOPE 
1842 SELECT MODE 0. 
H+ 24 010706 005037 001124 CLR SGDDAT 
(1) 3 MOV SGDDAT,@ASR / PUT DATA FROM $GDDAT TO BEvICE REG ASR 
1845 ;LOAD THE BUrFER fe REGI ISTER WITH 
1846 PATTERN O3¢5¢ L BE 
1847 : TRANSFERRED O° THe Count REGISTER 
1868 [SINCE THIS 1S node 0. 
1850 010722 012737 052525 001124 MOV #052525, $GDDAT ;SET EXPECTED TO PATTERN IN CASE OF 
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5 166 *TEST CLOCK A'S COUNT REGISTER WITH §52525 PATTERN SEQ 0088 


:NEED OF ERROR TYPEOUT. 
;READ THE COUNT REGISTER 


;* MCV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 

ed MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
010750 023737 001124 001126 CMP SGDDAT ,SBDDAT sO Ome Thin ie AND NO OTHER BITS 
010756 001401 BEQ 1$ ;BR IF YES TO NEXT TEST. 


32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


010760 104004 ERROR 4 :DATA ERROR CLOCK A _ PATTERN °052525"" 
SFAILED TO TRANSFER PROPERLY BETWEEN 
‘BUFFER AND COUNT REGISTERS. 


37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
010762 1$: 


FRRAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARATeAKARKe KAA He AAAK AAA TATe TTS 


SeTEST 67 *TEST THAT CLOCK B'S COUNT REGISTER IS CLEAR 


;* 
s*CLOCK B COUNT REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
3*F/FS OR GATES 


i PROBABLE SYNC POINT FOR THIS 


So ee +e 
‘ 
° 


FERRARA AAA AREA AAAA AA ARATE AAA AAAAAAAAAEAEARAAAREERAAA RATA ARAN ES 


010762 000004 TST67: SCOPE 
sSELECT MODE 0. 
:CLEAR THE BUFFER REGISTER. BUFFER 
REGISTER WILL BE TRANSFERRED TO 
[COUNT REGISTER SINCE THIS IS MODE 0. 
010764 005037 001124 CLR SGDDAT 
:* MOV SGDDAT,@BSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
:* MOV SGDDAT ,@BBR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
011010 005037 001124 CLR $GDDAT sEXPECT TO READ BACK ALL O'S. 
;READ THE COUNT REGISTER - IT SHOULD BE CLEAR. 
ze MOV @BCR,SBDDAT ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
011024 005737 001126 TST $BDDAT 
011030 001401 BEQ 1$ ;BR IF YES TO NEXT TEST 
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CRLPGC.P11 18-AUG-80 09:1 *TEST THAT CLOCK B'S COUNT REGISTER IS CLEAR . SEQ 0089 
3 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS ‘ 
1891 011032 104007 ERROR 7 ERROR - CLOCK B'S COUNTER REGISTER 
1936 NOT CLEAR. 
iB 
T SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1895 911034 1$: 
1896 
1897 
1898 pee eaeeeaeeaeeeeeeeeneeeeeeeeedeedeeereeKeeteteeeeerereeeenrere 
+ ¢ S*TEST 70 *TEST CLOCK B'S COUNT REGISTER WITH 125 PATTERN 
(5) 3* 
(5) s*CLOCK B COUNT REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
a3 ser 7Fs OR GATES 
4 ce PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’ 2 OCCURANCES PER PASS 
:* 
i : 
(3) PRRAAeeeeeeeeAeeeeeeeeeeeeeeeeeeKAKAeeKeAeeeeeaneeteeeeeeeeee 
1455 011034 000004 TST70: SCOPE 
1900 sSELECT MODE 0. 
1) 011036 005037 001124 CLR $GDDAT 
(1) 7* MOV SGDDAT ,@BSR 3/ PUT DATA FROM S$GDDAT TO eeeees REG BSR 
1903 LOAD THE BUFFER mtg WITH 
1904 PA TTERN 125. IT WILL BE 
1905 : TRANSFERRED - TO THE COUNT REGISTER 
1S SINCE THIS IS MODE 0. 
Hh 011052 012737 000125 001124 MOV #125, $GDDAT :SET EXPECTED TO PATTERN IN CASE OF 
(1) 5¢ MOV SGDDAT ,@BBR 3/ PUT DATA a. SGDDAT TO DEVICE REG BBR 
1910 NEED OF ERROR TYPEOUT. 
+ a8 READ THE COUNT REGISTER 
1913 3* MOV @BCR,SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
1914 011100 023737 001124 001126 CMP S$GDDAT ,SBDDAT 3D1D ALL THE BITS AND NO OTHER BITS 
1915 ; COME THROUGH? 
Lb 011106 001401 BEQ 1$ 3BR IF YES TO “NEXT heee 
1918 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1919 011110 104007 ERROR 7 spat ERROR CLOCK B - PATTERN ‘125"' 
1920 FAILED TO TRANSFER PROPERLY BETWEEN 
1921 “BUFFER AND COUNT REGISTERS. 
1922 
1923 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
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CRLPGC.P11 18-AUG-80 09:15 17 *TEST CLOCK B°S COUNT REGISTER ulin’ 125 PATTERN SEQ 0090 
> : 011112 18: 
19 6 seeeeeeeerereeneererereeeeeerereeAterereneeeAeeeeAeeTeAeeAAATe ee 
+ § TeTEST 71 *TEST CLOCK B'S COUNT REGISTER WITH 252 PATTERN 
(5) :* 
(5) s*CLOCK B COUNT REGISTER BIT EXERCISE. ON FAILURE-SUSPECT INDIVIDUAL 
a} ;*F/FS OR GATES 
« se 
44 3* PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’ 2 OCCURANCES PER PASS 
;* 
3 ; 
(3) Fy REE AAAAEREARAAEEAAEAEAAEA AREER AAAAAAAAAAAAAAAAAAAAARAEAARAAAAE 
1957 011112 000004 TST71< SCOPE 
1928 sSELECT MODE 0. 
1393 011114 005037 001124 CLR SGDDAT 
(1) 3 MOV SGDDAT,@BSR 3/ PUT DATA FROM S$GDDAT TO bevece REG BSR 
1931 LOAD THE gyrres ree WITH 
1932 sPATTERN 252. L BE 
1933 ; TRANSFERRED 10. THE” COUNT REGISTER 
Ht «4 ;SINCE THIS IS MODE 0. 
be 011130 012737 000252 001124 MOV #252 ,SGDDAT 3SET EXPECTED TO PATTERN IN CASE OF 
(1) 3 MOV SGDDAT ,@BBR :/_PUT DATA —. cevoet TO DEVICE REG BBR 
1938 :NEED OF ERROR TYPEOUT. 
44 ;READ THE COUNT REGISTER 
onc s@ MOV @BCR,SBDDAI ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
es | 011156 023737 001124 001126 CMP SGDDAT , SBDDAT One thie bn BITS AND NO OTHER BITS 
ieee 011164 001401 BEQ 1$ BR IF YES TO NEXT TEST. 
1946 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1947 011166 104007 ERROR 7 Pe ERROR CLOCK B - PATTERN ‘'252"° 
1948 FAILED TO TRANSFER PROPERLY BETWEEN 
1949 TBUFFER AND COUNT REGISTERS. 
a 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
193¢ 011170 1$: 
ie 
1968 seeeeeeeeeeeeeeeeeeeeeeeeettereeeeeeeteeaeKeeeegeeeeeeeeeeeeeees 


(3) 
(4) 
(4) 
(5) 
(5) 


:ATEST 72 *TEST THE SETTING OF MAINTENANCE STP1 IN CLOCK A BIT 15 TO SET 
SNE SIGNALS GENERATION OF "'STP1’’ BY "LD STAT A’ H + “BD 12°°H 
is PROBABLE SYNC POINT FOR THIS TEST:: ‘DEVICE OUT’’ 2 PER PASS 
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CRLPGC.P11  18-AUG-80 09:15 17 *TEST THE SETTING OF MAINTENANCE STP1 IN CLOCK A BIT 15 TO SET SEQ 0091 
(5) 3* 
(4) 3* 
(3) *  RERAAAAAAAAEAAEEAAEAAAEKARAAAEAAAARAAAAAAAAAAAAAAAAAAAAAAARAAEE 
1423 011170 000004 1$172: SCOPE 
1970 011172 005037 001124 CLR SGDDAT 
mit} ;* MOV SGDDAT,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(1) 7° MOV @ASR,SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN S$GDDAT. 
1973 SURE THE STATUS REGISTER IS CLEAR. 
1974 SET MAINTENANCE STP1. 
1975 011216 012737 010000 001124 MOV #81112, $GDDAT 
mi 3* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
1978 :DID BIT15 (STP1 FLAG) SET? 
(1) ry MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
1980 011244 005737 001126 TST SBDDAT 
1981 011250 100401 BMI 1$ :BR IF YES - NEXT TEST 
1983 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1984 011252 104001 ERROR 1 sERROR - MAINTENANCE STP1 (B1T12) 
1985 ‘DID NOT SET BIT15 (STP1 FLAG) CLOCK A. 
198 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1988 011254 1$: 
1989 
1997 
1998 33 RAAT AAAAEAAAAAAAAAARAAAAAEAAAAAERAEARAATAAAAAAAAAEEE 
(3) sSTEST 73 *TEST THAT BITOO IN CLOCK A STATUS REG. WILL SET WHEN BIT13 AND MAIN. ST 
(4) SNe SIGNALS ‘'STP1'’ H + “'ST1 ENB CNTR (1)'' H DIRECT SETTING . 
(4) “ST FLAG" 
3% 
(3) :® PROBABLE SYNC POINT FOR THIS TEST:: “DEVICE OUT’ 2 PER PASS 
3% 
(3) ie etenegeceeesecececeeesecerereeenceeeeeececeneceteneteneseceens 
1633 011254 000004 TST73: SCOPE 
2000 ;SET "ST ENB COUNTER’ IN CLK A°S STATUS REG. 
1 [GENERATE A MAINTENANC 
2 :DID BITOO (ENABL CNTR A) SET? 
3 011256 012737 020000 001124 MOV #81113, $GDDAT 
aint ;* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) @ASR, SGDDAT s/READ DEVICE REG ASR,PUT DATA IN SGDDAT. 


3* MOV 
011304 052737 010000 001124 BIS #81112, $GDDAT 


3 
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CRLPGC.P11 18-AUG-80 09:15 17 *TEST THAT BI1TOO IN CLOCK A STATUS REG. WILL SET WHEN BIT13 AND MAIN. STP SEQ 0092 


(1) ;* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 3* MOV @ASR ,SBDDAT 3 /READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
2008 11382 032737 000001 001126 BIT #81160, $BDDAT 
son 011 001001 BNE 1$ ;BR IF YES - NEXT TEST. 
012 
5: :$$$$$$SSSS$S$SSSSS5SSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSS5SS5S5S 
2013 011342 104001 ERROR 1 ERROR - BITOO OF CLOCK A'S it ag REGISTER 
2014 FAILED TO SET WHEN BIT13 WAS SET 
Ne : AND A MAINTENANCE ST1 GENERATED. 
2017 
; ; ;$$$S$S$S$S$SSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSS5SSS 
2018 011344 1$: sLEAVE SUBTEST WITH CLOCK CLEAR. 
019 011344 005037 001124 CLR SGDDAT 
24>) 3* MOV SGDDAT,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
Sosa Z% RARER AAAEARAAARERAERAEARAAAAEAEAAAAAAEAEAARARAAAAAAAAARAERAERAAAAARAAAARAAKEE 
az seTEST 74 *TEST THAT CLOCK A WILL INCREMENT - MODE 0 - RATE STP1 FIRST COUNT TEST 
(4) ? COUNT TEST = THIS IS THE VERY FIST TIME THAT THE COUNTER 
(4) + HAS BEEN ASKED TO sere et a NT! _ alte ARE GOING TO DO IS 
(4) :*CLEAR THE BUFFER T MODE E OF STPI. 
(4) : 3 *NEXT WILL OTeRAte: LE Cores Funduen. MAINTENAN cE MODE (WE'VE 
(4) s*DONE THIS BEFORE IN A PREVIOUS TEST TO SEE IF THE FLAG WOULD SET) 
(s) 3 AND SEE IF THE COUNTER HAS INCREMENTED. 
2) > PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF A’ 
;* 
(3) in ececeeeeneneceanceceeeerecececenececeeneqnqenenececeeneneqenees 
a ) 011360 000004 TS174: SCOPE 
2036 sCLEAR CLOCK 
2037 ; > CLEAR BUFFER *EGISTER. - 
ites 011362 005037 001124 CLR SGDDAT 
200d 3t MOV SGDDAT,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(1) 3* MOV SGDDAT,@ABR i/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
1 ‘SELECT: MODEO! RATE ''STP1"’ AND ENABLE 
é >CLOCK A ° COUNT. 
[NOW GENERATE A MAINTENANCE STP1 = AT 
4 sTHIS TIME THE CLOCK SHOULD COUNT ONCE. 
045 011406 012737 000015 001124 MOV #15, $GDDAT 
24? 7* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) jt MOV @ASR,SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN SGDDAT. 
2048 011434 052737 010000 001124 BIS #81112, $GDDAT 





or 
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CRLPGC P11 18-AUG-80 09:15 T74 *TEST THAT CLOCK A WILL INCREMENT - MODE 0 - RATE STP1 FIRST COUNT TEST SEQ 0093 

(1) 3* MOV SGDDAT ,@ASR if PUT DATA FROM SGDDAT TO pease REG ASR 
$020 011452 012737 000001 001124 MOV #1, SGDDAT FOR ERROR TYPEOUT (IF NEEDED) 1 be “i. 
si SREAD THE COUNT REGISTER - SHOULD=1 

(1) ;* MOV @ACR ,SBDDAT 7/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
053 011470 023737 001126 001124 CMP se0DiT, SGDDAT ;DID THE COUNTER COUNT ONCE? 

a4 011476 001401 BEQ 1$ c1F YES = BR NEXT TEST. 
2056 

37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

2057 011500 104011 ERROR 11 ERROR - COUNT A FAILED TO COUNT 

2058 ONCE, ABLED, 

2059 RATE ‘’STP1'* SEE ABOV 

2060 FOR COMPLETE DESCRIPTION AND LIST 

2061 : OF EVENTS. 
306 

32; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

2064 011502 1$: 
2065 
2082 
2083 pURAeeeeaeeeeeeeeeeeeeeeeeeerereeeaaeKeeeeeKeaeKenteeeneeeeeeeet 

+ :#TEST 75 *TEST THE ABILITY OF CLOCK A TO COUNT FROM ZERO TO OVERFLOW USING M STP1 
(4) aIN THIS TEST WE'LL COUNT THE COUNTER THROUGH EACH STEP 

(4) *FROM ZERO TO OVERFLOW USING MAINTENANCE ‘‘STP1"' TS. 

(4) 3* S K T OUNTER WILL INCREMENT ONCE USING 

(4) tSTHE MAINTENANCE STP1 AND THAT THE COUNTER F/FS WILL 

(4) :*PASS ALL DATA BITS. 

(4) : *UNKNOW IS THE ABILITY OF THE F/F°S TO PROPAGATE THEIR 

44 ; OVERFLOWS. 

(4) ieIF IT IS DESIRED TO START THIS TEST AT A VALUE OTHER THAN : 
(4) ;*ZER 0, CHANGE THE SECOND INSTR. OF THIS test TO A VALUE TO BE 

(s) ; *LOADED INTO THE BUFFER TO THAT VALUE DESIRED. 

og e PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF A’ 

3* 

(3) PPTIITTTTTTTTTITTTITTITITITTTTTTTTT 

268, 011502 000004 TST75: SCOPE 
2085 011504 005037 001124 CLR SGDDAT ;START THE ae FROM ZERO. 

2086 A VALUE OTHER THAN ZERO MAY BE 

7 PATCHED IN HERE IN ORDER THAT A COUNT 
Y BE STARTED HIGHER. 
011510 1$: ‘DISABLE CLOCK A. 
; 011510 005037 001354 CLR STMDAT 

2092 :* MOV STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) 3* MOV SGODAT ,@ABR i/ PUT DATA FROM SGDDAT TO pevate REG ABR 
soe? ;LOA D THE COUNTER BUFFER WITH VALUE. 


hase 1S THE LOOP BACK POINT ON 
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18-AUG-80 09:15 


THE ABILITY OF CLOCK A TO COUNT FROM ZERO TO OVERFLOW USING M STP1" 


“LOOP _ON TEST’’ (SW14=1) FEATURE. NOWMAL 
SLOOP BACK POINT WILL BE ‘'2$"'. 


012737 000015 001354 MOV #15,STMDAT 
3* MOV STMDAT,@ASR / PUT DATA FROM STMDAT TO peice REG ASR 
TENABLE COUNTER TO COUNT. SELECTED: 
MODE 0, RATE ‘'STP1"’ 
2s: 
3* MOV @ASR ,STMDAT 3/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
052737 010000 001354 BIS #eiti2, STMDAT GENERATE A MAINTENANCE ""STP1’’. THIS 
3@ MOV STMDAT,@ASR Soe VA i FROM STMDAT TO DEVICE REG ASR 
005237 001124 INC SGDDAT ‘SGDDAT IS USED TO KEEP TRACK OF THE 
‘VALUE THE CLOCK SHOULD COUNT TO. 
3* MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
023737 001126 001124 CMP SBDDAT ,SGDDAT 3D1D COUNT oc. CORRECTLY? 
001402 BEQ 3$ ZF YES - BR TO ‘'3$"’. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104011 ERROR 11 sERROR = CLOCK A FAILED TO UPCOUNT 
:CORRECTLY USING MODE 0 - RATE ‘'STP1"*. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<$$SSSSSSS5S55SS555S5S55555 


000403 BR 4$ 
005737 001124 3$: TST SGDDAT :DID WE ACHIEVE OVERFLOW TO ZERO YET? 
001410 BEO 5$ ‘IF YES = BR NEXT TEST 
032777 040000 167274 4$: BIT #B1T14,aSwR :LOOP CURRENT COUNT? 
001742 BEQ 2$ “BR IF NO TO NEXT COUNT UPDATE. 
162737 000001 001124 SUB #1, $GDDAT [IF YES = DECREMENT EXPECTED AND RELOAD. 
000715 BR 1$ [GOTO RELOAD POINT. 

5$: sEND SUBTEST 

.SBTTL * 

*“SBTTL * PHASE 3 CLOCK A COUNT FUNCTION TESTS 

"SBTTL * 

peeeeeeereeareeeeeeereeeeereereeeteeeaeteneeeeeereteeeeeeeseeets 

: TEST 76 eTEST THAT CLOCK A OVERFLOW WILL OCCUR 

tENOW WE'LL TRY AND GENERATE "A OVERFLOW L 

such ses $ BD0S. L 0O IT BY tts a THE BUFFER 

1 177777 AND GéwenaTe A MAINTENANCE stp. olf ALREADY 


SEQ 0094 


a ; on 
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CRLPGC.P11  18-AUG-80 09:15 176 *TEST THAT CLOCK A OVERFLOW WILL OCCUR SEQ 0095 
co) ;#ALSO SEE IF "MODE'' FLG GETS SET. 
(3) [® PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A" 
:* 
(3) + eeeeeeeeneneneeeerererereeereereneteeeneteeeeereeeeeeneenetete 
>? 011656 000004 1$176: SCOPE 
2146 ; sMAKE SURE CLOCK A CLEAR. 
3147 011660 005037 001124 CLR SGDDAT 
(1) ;* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
2149 011674 012737 177777 001124 MOV #177777, ,SGDDAT :PRESET BUFFER TO ALL ONES. 
(1) :* MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
2151 ‘SELECT MODE 0; RATE STP4; GO. 
2152 ‘GENERATE A MAINTENANCE STP1. 
2153 011712 012737 000015 001124 MOV #15, SGDDAT 
ash + MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 3* MOV @ASR,SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN S$GDDAT. 
2136 011740 052737 010000 001124 BIS #B1T12,$GDDAT 
RSH 8 MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
2159 011756 1$: :DID OVERFLOW BIT SET? 
(1) ;* MOV @ASR ,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
2161 011766 032737 000040 001126 BIT #81105, $BDDAT 
2162 011774 001002 BNE 2$ :BR IF YES TO "'28"'. 
; 1; $$$S$S$SS$S$$SSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSS5S5 
2164 011776 104012 ERROR 12 sERROR BITOS OF CSR CLOCK A FAILED 
165 :TO SET ON OVERFLOW. 
: 5 :$$$$$$$S$S$S$SSSS5SSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2167 012000 000411 BR 3$ 
2169 012002 2$: :DID BITO7 - "MODE’ FLG SET? 
(1) ;* MOV @ASR,SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
2171 012012 032737 000200 001126 BIT #81107, $BDDAT 
2172 :1T SHOULD SET WHEN BITOS SETS. 
2173 012020 001001 BNE 3$ ‘BR IF YES TO 3$. 
: : ;$$$$$$S$S$$S$SSSS$SS5SSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2175 012022 104012 ERROR 12 sOVERFLOW FAILED TO SET CLOCK A'S 
2176 ‘CSR BITO7 "MODE FLG. IT 
2177 SHAD; HOWEVER SET BITOS ‘OVERFLOW’ 
2178 SFLAG. 


33: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<$$S5S555SS555555555595555S5 
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MACY11 306(1063) 24-OCT-80" 
176 *TEST THAT CLOCK A OVERFLOW WILL OCCUR 


38: 


peeeeeerereraterererereteterereeereereeeeeeeeaAneeereneAeeerenes 


*TEST IN CLOCK A THAT OVERFLOW IN MODE 0 CAUSE CLEARING OF ‘ENB CNTR’ F/ 


aye RE Se TO SEE if "A RELOAD'' H AND "MODE 0°’ H CLEAR 
"ENB CNTR A’ ae RELOAD"’ GENERATED ON A AND 


TEST 77 


i MODE.0"" G NERA TED BY "MODE AO 
—i#ALSO SEE SEE OUNTER REGISTER GETS RELOADED 


i 


s@ 
§ 


09: 738 PAGE 3-75 


" AND ‘MO 


i PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A” 
*® 


RARER ARAAAAARAREREAEAAEAEEAAAAAAAERAAAAAAAAAAAAAEARARAEAAEAREAE 


177: 


SCOPE 


CLR 
MOV 


MOV 


MOV 
MOV 


MOV 


MOV 
BIS 


MOV 


MOV 
BIT 
BEQ 


SGDDAT 
SGDDAT ,@ASR 


#177777, SGDDAT 


SGDDAT ,@ABR 
#15, $GDDAT 


SGDDAT,@ASR 


ASR, $GDDAT 
#B1T12,$GDDAT 


SGDDAT ,@ASR 


@ASR,STMDAT 
#81100, STMDAT 


;MAKE SURE CLOCK A IS CLEAR. 


:/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
;PRESET BUFFER TO ALL ONE 

;SELECT MODE 0, RATE "STP4''; GO. 
:GENERATE A MAINTENANCE STPi. 

THIS SHOULD CAUSE AN OVERFLOW 

SOVERFLOW WILL GENERATE ‘‘A RELOAD" H 
COMBINE THIS WITH MODE 0 AND WE 


;/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 


;/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
;/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 


:/ PUT DATA FROM SGDDAT T 


DEVICE REG ASR 
;SHOULD CLEAR “ENB CNTR A’ F/F. 


;/READ DEVICE REG ASR,PUT bess 2 STMDAT. 
:D1D BITOO ‘ENB CNTR A’ F/F CLEAR 
;BR IF YES - NEXT TEST. 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104012 


ERROR 


12 


7"ENB CNTR A‘’ F/F NOT CLEARED 
;0N OVERFLOW. 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000411 


022737 177777 001126 


1$: 


MOV 
CMP 


2s 


SBODAT 
7 


@ACR 
#177777, SBDDAT 


;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
:DID COUNTER GET RELOADED AFTER 


SEQ 0096 


8 
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CRLPGC.P11 18-AUG-80 09:15 177 *TEST IN CLOCK A THAT OVERFLOW IN MODE 0 CAUSE CLEARING OF ‘ENB CNTR’ F/F SEQ 0097 
2221 " sTHE OVERFLOW OCCURRED? 
$556 012166 001401 BEQ 2s 7BR IF YES = NEXT TEST. 
37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS: 
2224 012170 104012 ERROR 12 sERROR CLOCK A = COUNTER DID y+ A RELOAD FROM 
2225 TBUFFER AFTER oho tet "A ay 
2226 7DI1D GET GENERATED ON WE WOULD 
2227 :HAVE GOT PREVIOUS ERROR: THEREFORE Moy aes 
2228 must EXIST WITH COMBINING "‘A RELOAD 
2229 [WITH "MODE Al (0)'' H TO GENERATE A 
sean ;COUNTER LOAD. 
33: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSS555558 
2232 012172 2$: 
2280 
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|CRLPGC. P11 18-AUG-80 09:15 17 *TEST IN CLOCK A THAT OVERFLOW IN MODE 0 CAUSE CLEARING OF “ENB CNTR’ F/F SEQ 0098 
2281 3/4 
(1) 


~ 
uw 
~ 


Hey) La ae TO yee" CLOCK A'S ABILITY TO COUNT 


se * PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A’’ 


SRRERAAAAAAEAAAAAATAAAEAERAEHEHAAEAARERAAAAAEAAAAAAEARAAAEKAEAAAAEE 


*@ 
$1100: SCOPE 


i 


012172 000004 


eee ee ee ee le 


;/MAKE SURE eg IS CLEAR. 
:/CLEAR THE BUF 
;/SELECT: MODE 0: RATE IMHZ ; 

012174 005037 001124 CLR SGDDAT 


se MOV SGDDAT ,@ASR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 


s* MOV SGDDAT,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
012220 012737 000003 001124 MOV #1!2,SGDDAT 


78 MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
012236 005000 CLR RO ;/NOW WE'LL DO A LITTLE DELAY: THIS DELAY | 
012240 005200 1$: INC RO ;/WILL. AMOUNT TO 369MS ON A PDP-11/20 
012242 001376 BNE 1$ 


NOR 2 2 tS SW FUYIOAOOU' 


:/DID COUNTER INCREMENT AT ALL? 
:* MOV _—s@ACR,, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
012254 005737 001126 TST  $BDDAT ° 
012260 001011 BNE 28 :/IF YES = BR NEXT TEST. 4 
:/COUNTER MAY HAVE HAD TIME TO OVERFLOW. 
:* MOV _—s@ASR, SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. | 
012272 032737 000040 001126 BIT #B1 165, $BDDAT | 
:/AT HIGH RATE ~ SO WE'LL SEE IF “OVERFLOW | 
012300 001001 BNE 28 :/BR IF YES NEXT TEST. 
+: $$$$$$$SSS$SSS55555555$$$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


012302 104012 ERROR 12 ;/ERROR CLOCK COUNTER FAILED TO 
:/COUNT RATE: 1MHZ. 


12 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
012304 2$: 


LL PR PRP PRP PAL LPL Lm Pe Pm fm Om me my 


Cet et at a PY 9 SS SN) 2 SS SP POTD 
ee er ee ee ee ee eee ee ee ee el ele ee we 
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~~ 


~~ 
— 
~~ 


f 
! 
| 
| 
(5) peeeeeeneneenenecerereeerererereeeeeeeeeeererereeereeteerererere 
(4) jTEST 100 *TEST THE ABILITY OF CLOCK A TO COUNT AT 1MHZ RATE PART 1 


2 -_-— _—-— ~~ — —— —— — + ——— 


1 8. 57 
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78 
cr LPGC.P11 18-AUG-B0 09:15 1100  *TEST THE ABILITY OF CLOCK A TO COUNT AT 1MHZ RATE PART 1 SEQ 0099 

2282 AT) 

(5) seeeeeererereneteterereeereretereneeeereeeeeeerenaneTeeeeeeeeeee 

(4) atest 101 eTEST THE ABILITY OF CLOCK A TO COUNT AT 100KHZ RATE PART 1 
(5) CSTHIS TEST I$ DESIGNED TO TEST CLOCK A’S ABILITY TO COUNT 

(3) :sIN RATE: 100KHZ 11 

(6) ce PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A” 

*? 

(5) : 

(4) : | dtaeeneneceeacccecececenceceeeeeecececeeeeeeceeeeneeeeeeeeesens 

(3) 012304 000004 T$1101: SCOPE 

(1) ;/MAKE SURE CLOCK IS CLEAR. 

(1) /CLEAR THE BUFFER. 

(1) */SELECT: MODE 0, RATE 100KHZ ; 

a) 012306 005037 001124 CLR SGDDAT 

@) :* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(2) 3 mov SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
a) 012332 012737 000005 001124 MOV #1'4,$GDDAT 

(2) rt MOV SGDDAT,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 012350 005000 CLR RO “JNOW WE'LL DO A LITTLE DELAY: THIS DELAY 
(1) 012352 005200 1$: INC RO :/WILL AMOUNT TO 369MS ON A PDP-11/20 

(1) 012354 001376 BNE 1$ 

CW) :/DID COUNTER INCREMENT AT ALL? 

(2) 3 MOV ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1) 012366 005737 001126 TST $BDDAT 

W 012372 001011 BNE 2$ /IF YES - BR NEXT TEST. 

aH :/COUNTER MAY HAVE HAD TIME TO OVERFLOW. 
(2) 3 MOV @ASR, SBDDAT :/READ DEVICE REG ASR,PUT DATA IN S$BDDAT. 
(1) 012404 032737 000040 001126 BIT #81105, $BDDAT 

(1) s/AT HIGH RATE - SO WE'LL SEE IF “OVERFLOW 
(1) :/F/F HAD SET. 

oh 012412 001001 BNE 2% :/BR IF YES NEXT TEST. 

£1: $$$$$$$$$$$SSS$$SSSS$SSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 012414 104012 ERROR 12 :/ERROR CLOCK A COUNTER FAILED TO 
oe /COUNT RATE: 100KHZ. 
£1 {$$$$$$$$$$$SS$$$$SS$S$SSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 012416 2$: 
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005037 001124 
012737 000007 
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001376 
005737 001126 


001011 


032737 000040 


001001 


001124 
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8 
MACY11 306(1063) 24-0C1-80° 09:38 PAGE 3-79 


7101 *TEST THE ABILITY OF CLOCK A TO COUNT AT 100KHZ RATE PART 1 


fa, 
peeeeerereeeeeeteeeeeeterereeeeeereeeeeeeeeeeeeegeeeeeeeeeneeeee 
: TEST 102 *TEST THE ABILITY OF CLOCK A TO COUNT AT 10KHZ RATE PART 1 


tSTHIS TEST IS DESIGNED TO TEST CLOCK A'S ABILITY TO COUNT 
IN RATE: 10KHZ 71 


;* PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF A” 


RRR AAAAAEARAAEEEAEAEAAEAE AAA AAARAAARARAAAAAAAEAAAAHEAAAAAAEE 


7102: SCOPE 


an: ee 


7 /MAKE SURE eg IS CLEAR. 
:/CLEAR THE BUFFER. 
;/SELECT: MODE 0, RATE 10KHZ ; GO. 


CLR SGDDAT 
3* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
g* MOV SGDDAT ,@ABR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ABR 
MOV #1!6,$GDDAT 
7° MOV SGDDAT ,@ASR 3/ Put DATA FROM SGDDAT TO DEVICE REG = 
CLR RO :/NOW WE'LL DO A LITTLE DELAY: THIS DELAY 
1$: ae > :/WILL AMOUNT TO 369MS ON A PDP-11/20 
;/DID COUNTER INCREMENT AT ALL? 
7* MOV @ACR ,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
TST SBDDAT 
BNE 23 3/1F YES - BR NEXT TEST. 


:/COUNTER MAY HAVE HAD TIME TO OVERFLOW. 
MOV ASR, SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
BIT #81105, $BDDAT 
:/AT HIGH RATE - SO WE'LL SEE IF “OVERFLOW 


3/F/F HAD SET. 
BNE 2s ;/BR IF YES NEXT TEST. 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104012 


ERROR 12 :/ERROR CLOCK A COUNTER FAILED TO 
;/COUNT RATE: 10KHZ. 


37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSS55 





2s: 


SEQ 0100 
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PGC.P11  18-AUG-80 09:15 1102. ®TEST THE ABILITY OF CLOCK A TO COUNT AT 10KHZ RATE PART 1 SEQ 0101 
Ty 3/4 
(5) FRRAAAAAAAAAAAARETAAAAAATAETAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAS 
(4) j#TEST 103 *TEST THE ABILITY OF CLOCK A TO COUNT AT 1KHZ RATE PART 1 
(5) S*THIS TEST, Is DESIGNED 10, TEST CLOCK A°S ABILITY TO COUNT 
(3) [eIN RATE: 1KHZ 
(6) is PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A’ 
*? 
(5) : 
(4) it eteueeneneeececeeeecececeecececeeneenceceececeeqeneceeneqeenes 
(3) 012530 000004 1$1103: SCOPE 
(1) ;/MAKE SURE CLOCK 1S CLEAR. 
(1) */CLEAR THE BUFFER. 
(1) :/SELECT: MODE 0, RATE 1KHZ ; GO. 
(1) 012532 005037 001124 CLR SGDDAT 
(2) 3* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(2) :* MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(1) 012556 012737 000011 001124 MOV #1110, $GDDAT 
(2) : MOV SGDDAT,@ASR ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 012574 005000 CLR RO “/NOW WE'LL DO A LITTLE DELAY: THIS DELAY 
(1) 012576 005200 1$: INC RO :/WILL AMOUNT TO 369MS ON A PDP-11/20 
(1) 012600 001376 BNE 1$ 
(1 :/DID COUNTER INCREMENT AT ALL? 
(2) :* MOV @ACR, SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1)---012612-—--005737, 001126 - - -  $T .$BDDAT 
Mv) 012616 001011 BNE 2$ :/IF YES = BR NEXT TEST. 
aa, :/COUNTER MAY HAVE HAD TIME TO OVERFLOW. 
(2) 8 MOV @ASR, SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(1) 012630 032737 000040 001126 BIT #81105, $BDDAT 
(1) /AT HIGH RATE - SO WE'LL SEE IF “OVERFLOW 
(1) :/F/F HAD SET. 
() 012636 001001 BNE 2$ :/BR IF YES NEXT TEST. 
5: {SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 012640 104012 ERROR 12 ;/ERROR CLOCK A COUNTER FAILED TO 
() */COUNT RATE: 1KHZ. 


33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 012642 2s: 
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CRLPGC.P11  18-AUG-80 09:15 1103 TEST THE ABILITY OF CLOCK A TO COUNT AT 1KHZ RATE PART 1 SEQ 0102 
a m 
(5) seeeeeeeeeeeeerrereeeeeereeeerereeeKeeeeereeeeeeeeeeeeeeeereeees 
(4) : TEST 104 eTEST THE ABILITY OF CLOCK A TO COUNT AT 100HZ RATE PART 1 
(5) : ’ iSTHIS TEST 1$ DESIGNED TO TEST CLOCK A’S ABILITY TO COUNT 
5) z#1N RATE: 100HZ T1 
(6) ® PROBABLE SYNC POINT FOR THIS TEST:: “LD BUFF A’ 
*? 
(5) : 
(4) it eteneeeeesenecececeeeeceeeeeeeeecececeeeeeeeqeteceeneeeeeeneece 
(3) 012642 000004 71104: SCOPE 
(1) ;/MAKE SURE CLOCK IS CLEAR. 
(1) :/CLEAR THE BUFFER. 
(1) :/SELECT: MODE 0. RATE 100HZ : 
() 012644 005037 001124 CLR SGDDAT 
(2) 3 MOV _—s SGDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(2) :* MoV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
() 012670 012737 000013 001124 MOV #1!12,$GDDAT 
(2) ie MoV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 012706 005000 CLR RO /NOW WE'LL DO A LITTLE DELAY: THIS DELAY 
(1) 012710 005200 1$: INC RO /WILL AMOUNT TO 369MS ON A PDP-11/20 
(1) 012712 001376 BNE 1$ 
oH :/DID COUNTER INCREMENT AT ALL? 
(2) 3 MOV @ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 012724 005737 001126 TST S$BDDAT 
a 012730 001011 BNE 2$ /1F YES = BR NEXT TEST. 
( :/COUNTER MAY HAVE HAD TIME TO OVERFLOW. 
(2) it MOV _—s @ASR,, SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
(1) 012742 032737 000060 001126 BIT #81105, $BDDAT 
(1) :/AT HIGH RATE = SO WE'LL SEE IF ‘OVERFLOW’ 
(1) :/F/F HAD SET. 
oh 012750 001001 BNE 2$ :/BR IF YES NEXT TEST. 
£ :$$$$$$$$$$$$$$$5$$$$$$$SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSS5SS 
(1) 012752 104012 ERROR 12 :7ERROR CLOCK A COUNTER FAILED TO 
be /COUNT RATE: 100HZ. 
£1: S$$$$SSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 012754 28: 





a 
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iy 3/4 
(5) FRAAAAAAAAAAAAAAAAAAAAAAAEAAAEAAAAAAAAAAEAAAAAAAAAAAAAA RAAT AAETS 
$3 :ATEST 105 *®TEST THE ABILITY OF CLOCK A TO COUNT AT LINE-FREQ RATE PART 1 
(5) : STHIS TEST IS DESIGNED TO TEST CLOCK A'S ABILITY TO COUNT 
2 IN RATE: LINE-FREQ T 1 
(6) + PROBABLE SYNC POINT FOR THIS TEST:: “LD BUFF AT 

*? 
(5) : 
(4) it eteceeeeeeseneceeeeeeeecerecetecececeeeeeeteneneeceetesenenees 
‘3 012754 000004 TST105: SCOPE 
(1) 7/MAKE SURE cL ok IS CLEAR. 
(1) /CLEAR THE BUFFER. 
(1) /SELECT: MODE 0, RATE LINE-FREQ ; GO. 
{3} 012756 005037 001124 CLR SGDDAT 
ts) ;* MOV SGDDAT ,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(2) 3* MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
a 013002 012737 000017 001124 MOV = «#1!16,$GDDAT 
(2) :* MOV SGDDAT,@ASR i/ PuT DATA FROM SGDDAT TO DEVICE REG = 
(1) 013020 005000 CLR RO :/NOW WE'LL DO A LITTLE DELAY: ts DELAY 
(1) 013022 005200 18: INC RO :/W WILL AMOUNT TO 369MS ON A PDP-11/20 
(1) 013024 001376 BNE 1$ 
3h 3/DID COUNTER INCREMENT AT ALL? 
(2) 3* MOV @ACR ,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 013036 005737 001126 TST SBDDAT 
Hi 013042 001011 BNE 23 3:/1F YES - BR NEXT TEST. 
3) :/COUNTER MAY HAVE HAD TIME TO OVERFLOW. 
(2) 3* MOV @ASR ,SBDDAT 3;/READ DEVICE REG ASR,PUT DATA IN $BDDAT. 
(1) 013054 032737 000040 001126 BIT #81105, SBDDAT 
(1) :/AT HIGH RATE = SO WE'LL SEE IF ‘‘OVERFLOW'' 
(1) 3/F/F HAD SET. 
$3} 013062 001001 BNE 2s ;/BR IF YES NEXT TEST. 
22 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 013064 104012 ERROR 12 ;/ERROR CLOCK A ment FAILED TO 
th :/COUNT RATE: LINE-FREQ 
33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

(1) 013066 2s: 

2297 peeeeeeeeerenereeeeererereeeereeeereeeeneeeneteneneeeererereeree 
+ : TEST 106 *TEST THAT CLOCK A DOESN'T COUNT WHEN NO RATE IS SELECTED 
(4) ‘AWE KNOW THAT CLOCK A COUNTS AT ALL 
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CRLPGC.P11  18-AUG- 11 *TEST THAT CLOCK A DOESN'T COUNT WHEN NO RATE IS SELECTED 
(4) *1TS RATES, SO LETS BE SURE IT DOESNT 
(4) S®COUNT WHEN NO RATE IS SELECTED. ON 
(4) ; #ERROR SUSPECT DUAL RATE SELECTION. 
3) is PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A 
(3) :° RAERAAAARARAAAAERAEAAAEERAEAEAEAAEAAHAERAARAAAAARAAAEAAAARAARAAAAAAAAAAAEE 
83 013066 000004 181106: SCOPE 
2299 CLEAR CLOCK A. 
2300 ZERO ITS BUFFER. 
2301 TELL THE CLOCK TO GO! 
2502 013070 005037 001124 CLR S$GDDAT 
aS} :* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 3 MoV SGDDAT, @ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
2305 013114 005237 001124 INC SGDDAT 
(1) :* MOV _—s- SGDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
2307 NO RATE SELECTED. 
5308 013130 005000 CLR RO 
5309 013132 005200 1$ INC RO 
5310 013134 001376 BNE 1$ 
2311 ANY COUNT OCCUR? 
(1) 3 MoV ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
2313 013146 005737 001126 TST SBDDAT 
2514 013152 001010 BNE 2$ ;1F COUNTER HAS SOMETHING IN IT REPORT ERROR 
2316 
(1) MoV @ASR, SBDDAI s/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
2317 013164 032737 000040 001126 BIT #B1105,$BDDAT ;1F THE OVERFLOW BIT SET THEN IT MUST 
2318 HAVE COUNTED. 
5319 013172 001401 BEQ 3$ 
$35 
; 5 ; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2322 013174 104012 2$: ERROR 12 SAH HAY/ERROR CLOCK A COUNTED WHEN 
2323 TENABLED-BUT-NO-RATE SELECTED 
2326 sBETTER"E] FIND “OUT Hou CAUSED SIGNAL: 
£1 ;$$$$$$$$$$$$$$$$$$$$S$SS$>> ERROR cesssssssssssssssssssssssss. i 
7 013176 3$: 
338 
339 pteeeeeerereeaeerererererrecerrereeeereeettesereaseresereenesese 
(3) ;STEST 107 eTEST THAT CLOCK A'S COUNT REG ISN'T LOADED WHEN CLOCK A IS ENABLED 
(4) IN THIS. Tes ST WE'LL FIND OUT IF F/F “ENB CNTR A’ WHEN SET, 
(4) :* INMIBLTS OADING OF CLOCK A°S COUNT REGISTER 
(4) babine b Of, TWE cOuNT REGISTER 1S A FUNCTION OF: 
(4) ae OntR (0) W > “BUFFER 


SEQ 0104 
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005237 001124 


012737 177777 001124 


005737 001126 
001401 
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7107 *TEST THAT CLOCK A'S COUNT REG ISN'T LOADED WHEN CLOCK A IS ENABLED 


** 
:* PROBABLE SYNC POINT FOR THIS TEST:: "RD STAT B 


ceoceunceneuenesensessnnneeesensesneneseneneneneaqoobennennewent 


igteees SCOPE 


;GENERATE A SYNC PULSE 

SCLEAR CLOCK A'S STATUS REG. 
:CLEAR CLOCK A'S BUFFER REG. NOTE 
;THIS WILL ALSO CAUSE oy TO BE 
;LOADED INTO THE COUNT REG. 


se MOV @BSR,$BODAT ;/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
TST SBODAT 
CLR SGDDAT 

se MOV SGDDAT ,@ASR ;/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 

3 MOV SGDDAT ,@ABR +4 PUT DATA FROM SGDDAT TO DEVICE REG ABR 
INC SGDDAT ;SET THE ENABLE F/F. THIS 

:* MOV SGDDAT,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 

;FROM BEING LOADED WHEN THE 


BUFFER IS LOADED. 
MOV #177777,$GDDAT ;NOW LOAD THE BUFFER REG. 


:* MOV SGDDAT ,@ABR i/ PUT DATA FROM veneer TO DEVICE REG ABR 
;TO THE COUNT REGISTER. 
DID ANY BITS GET sah TO 
;THE COUNT REGISTER? 


:* MOV @ACR ,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
TST SBDDAT 
BEQ 1$ :BR IF NO - NEXT TEST. 


3 3 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104012 


ERROR 12 sERROR CLOCK A BUFFER TO COUNT REG TRANSFER 
: OCCURRED EVEN THOUGH THE ‘ENB CNTR A’ F/F 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


1$: 


FRMAAAAAAAAARAAAATARAAAAAAAAAATAAAAAAAAAAAAAAAKAAAAAAAAARAAAATAATS 


jTEST 110 *TEST THAT CLOCK A IN MODE 1 DOES NOT CLEAR ENABLE ON OVERFLOW 


‘a SNOW WE'RE GOING TO SEE IF ‘A OVERFLOW H WHEN GENERATED 
[*BY CAUSING AN OVERFLOW DOESN'T CLEAR THE "ENB CNTR A’ F/F 
S*WHEN IN MODE 1. IF F/F GETS CLEARED suSsECT SIGNAL ‘MODE 0° H 


$* PROBABLE SYNC POINT FOR THIS TEST:: “LD BUFF A’ 


SEQ 0105 


=e 


aseneenageceenin-canestnccipaentietanes endo oe errs Stee a 
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(5) 

( ) F coquanceqnemnnananmsenenemmenetnnmmngnmatianneneeneenent 
42) 013312 000004 +§1110: SCOPE 
2381 SMAKE SURE CLOCK A IS CLEAR. 
2382 3SET “BUFFER + COUNT. REG. 10 “1 FROM OVERFLOW 
938 MODE 1; RATE 

384 CAUSE A RALATENANCE isthe 

2385 i SHOULD OVERFLOW = BUT THis: ae SHOULD 
2386 ;NOT CLEAR TENBY CNTR A’ F 
2387 [DID B1T00, ENB CNTR A’ F/F GET CLEARED? 
2388 013314 005037 001124 CLR SGDDAT 

(1) * MOV SGDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
2390 013330 012737 177777 001124 MOV #177777 , SGDDAT 
(1) e MOV SGDDAT, @ABR :/ PUT DATA FROM $SGDDAT TO DEVICE REG ABR 
2392 013346 012737 000615 001124 MOV #415, $GDDAT 
2594 ;* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR , 
1) ;* MOV @ASR,STMDAT :/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
2395 013374 052737 010000 001354 BIS #B1T12,STMDAT 
ail ) :* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) * MOV @ASR, SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
3398 013422 032737 000001 001126 BIT #81100, $BDDAT 
2399 01 901001 BNE 1$ sBR IF NO TO NEXT TEST. 
5; {SSSSSSSSSSSSSSSSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2401 013432 104012 ERROR 12 sERROR MODE 1 OPERATION "ENB CNTR A’ F/F 
gene ‘WAS CLEARED ON OVERFLOW. 
5; {SSSSSSSSSSSSSSSSSSSSSSSES>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

2404 013434 1$: 
i? 
2418 FRAAAAAAAAAAAATAAATAAAATAATAAAAATAAAAAAAKAAKAKAAAKAAAAAAKAAAAAAT TS 

(3) j TEST 111 *TEST THAT A CLOCK A "BUFFER TO COUNT REG’ DOESN'T TAKE PLACE ON A MODE 
(4) :STHIS WILL BE THE FIRST TIME WE'VE DONE A MODE 2 OPERATION 

(4) [*ON CLOCK A. THE FUNCTION OF THIS TEST WILL BE TO MAKE 

(4) :*SURE A BUFFER TO COUNT REGISTER DOESN'T TAKE PLACE ON OVERFLOW 

(4) *THE COMBO THAT GAVE US BUFFER TO COUNT REG ON OVERFLOW BEFORE 

(4) 5#1$ S C'MODE Al (0)'' H + A RELOAD’ HJ. WE'LL STILL BE GENERATING 

(3) is PROBABLE SYNC POINT FOR THIS TEST:: “LD BUFF A" 

‘* 

(4) ; “A RELOAD’ H BUT SHOULD NOT GET."MODE Al (0)'' H AS THIS IS MODE 2. 

(3) ‘* REAAAAAAAAAAAAAAAAAHARAAAARAAAAAAAAAAAAAAAAAAAAARAAAAARAARAAARAAAE 

i?) 013434 000004 TST111: SCOPE 





| 












2428 013436 
2430 013452 


2432 013470 


2435 013516 


2438 013544 


2439 013550 


2441 013552 


013554 


. 9 
LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 09:38 PAGE 3-86 
CRLPGC.P11 18-AUG-80 09:15 1111 *TEST THAT A CLOCK A "BUFFER TO COUNT REG’ DOESN'T TAKE PLACE ON A MODE 2 SEQ 0107 





ee a ee eC eee i 
——= 


sMAKE SURE cLocK A_IS CLEAR. 
iSET BUFFER + COUNT REG TO -1 FROM OVERFLOW. 


“SET: MODE 2; S 60. 

[CAUSE A MAINTENANCE STP1 = CLOCK ONCE. 
STHIS SHOULD CAUSE AN QVERFL LOW AND LEAVE 
[THE COUNT REGISTER CLEAR A 
:BUFFER TO COUNT REG. SHOULDNT OCCUR. 

$ THE COUNT REG. CLEAR? 


005037 001124 CLR S$GDDAT 
i* MOV SGDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
012737 177777 001124 MOV #177777 , SGDDAT 
* MOV SGDDAT,@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
012737 001015 001124 MOV #1015 ,$GDDAT 
:* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
* MOV @ASR, SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 
052737 010000 001124 BIS #B1T12,$GDDAT 
“yf MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
jt MOV @ACR,$SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
005737 001126 TST $BDDAT 
001401 BEQ 1$ :BR IF YES TO NEXT TEST. 
5; ;$$$$SSS$SSSSSSSSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104012 ERROR 12 sERROR THE CONTENTS OF THE BUFFER REG. 


414 TRANSFERRED TO THE COUNT REG. 
;(CLOCK A) ON OVERFLOW DOING A 
:MODE 2 OPERATION. 


, THERE'S AN OUTSIDE ens THAT THE 
;COUNT REG. NEVER GOES TO ZERO ON 
SAN OVERFLOW - THIS IS THE FIRST TIME 
;THAT WE WERE ABLE TO LOOK AT IT ON 
SOVERFLOW BECAUSE MODES 0 + 1 CAUSED 
;THAT AUTOMATIC BUFFER TO COUNT REG. 


17 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
1$: 


Z3 SRERAAAAHAAAAAAAAAAAAAAAAAAAAAHAAARAAAKRAAAAAAAAAAAAAAAAAAAAAAAAE 


s*TEST 112 *TEST THAT CLOCK A MODE 2 + MAINTENANCE ST2 SET MODE FLG 


i. 
NOW WE'LL SEE IF CAN GENERATE A ‘CNTR TO BUFF’ H ging 

270 DETECT IT, WE'RE GOING TO DEPEND ON IT SETTING THE MODE FLAG. a 

- C'MODE Al (0)°' H * “'ST2 (1)" H) + TPO L=""CNTR TO BUFF 

:*BEING IN MODE SHOULD GIVE US "MODE Al (1). H. WELL GET ST2 (1) H 

:0BY GENERATING AINTENANCE ‘“‘ST2°*. TPO COMES FROM THE INTERNAL 

;* o 
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(3) :* PROBABLE SYNC POINT FOR THIS TEST:: "RD STAT 6” 
;* 

(4) ; 

(3) s  eteceeenateneececeeeececeeeeceeceeneceeceeteceeeeeneneeneeseses 
if 013554 000004 +81112: SCOPE 
ve :GENERATE A SYNC PULSE 

(1) * MOV @BSR,SBDDAT :/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
2471 013566 005737 001126 TST SBDDAT 
2472 ;MAKE SURE CLOCK A°S STAT REG IS CLEAR. 
473 013572 005037 001124 CLR SGDDAT 
i ;* MOV SGDDAT,@ASR i/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
2476 ; GENERATE MAINTENANCE ST2. 
2677 [THE COMBO OF MODE 2 + ST2 SHOULD 
2478 :GET "CNTR TO BUFF’ H WHICH SHOULD 
2479 [SET "MODE FLG’’ F/F. 
480 013606 012737 001090 001124 MOV #1000, $GDDAT 
ai :* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 

(1) 3* MOV @ASR ,SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN SGDDAT. 
2485 013634 052737 002000 001124 BIS #B1T10,$GDDAT 

(1) 3* MOV SGDDAT,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
2485 :DID IT SET? 

(1) * MOV @ASR ,SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
2487 013662 032737 000200 001126 =. One #81107, $BDDAT 
2488 013670 001001 BNE 1$ :IF YES-BR TO NEXT TEST. 

5; {8$$$SSSSSSSSSS$SSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2490 013672 104012 ERROR 12 sERROR - MODE 2 + ST2 DID NOT SET MODE FL. 
5p SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

2492 013674 1$: 
2493 
2548 

(5) FUReeeeeeAeReeeAeAAeeeeeeeeeeeeeeeeAAeeeeeeKKAeAReeeeKeAaneeeees 

(4) :STEST 113 *TEST THAT PATTERN 052525 CAN BE XFERRED BETWEEN A'S COUNT-BUFFER REGS 


TeNOW WE'LL SHOT THE WORKS =, WE KNOW FROM THE PREVIOUS TEST UE 
:*CAN GENERATE CNTR TO BUFF H FROM MODE 2 + MAINTENANCE S12. 
;#WE WELL TRY AND GENERATE A TRANSFER BETWEEN THE COUNTER AND BUFFER 
SeUSING ACB PAT. PATTERN 4 
SIF NO DATA PATTERN GETS TRANSFERRED, SUSPECT SIG “LD BUFFER 
;*TO BE STUCK LOW AT THE MUX INPUT FOR THE BUFF 
ST ONTR TOCBUFFETH NOT GETTING THROUGH TO THE LOAD INPUTS OF THE 
; #BUFFER REGISTER. 

S*1F JUST ONE OR A FEW BITS GETS MESSED UP ON THE XFERR- 
i *SUSPECT THE RESPECTIVE MUX OR ETCH BETWEEN THE COUNT REG 

AND MUX. GOOD LUCK. 


Pe eee te ae Le ht ha et 
PAAMAMAAUMMUIUIY 
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(6) ;* 
(6) j* PROBABLE SYNC POINT FOR THIS TEST:: “RD STAT 6” 
(5) ie 
(4) RRAAAAARAAAAAATAAARETEAAAAAAAAAAAAARAAAARARATHEAHARAAAAEHEAAAAEAAE 
(3) 013674 000004 181113: SCOPE 
(y) sGENERATE A SYNC PULSE 
(2) :° MOV @BSR,SBDDAT ;/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
(1) 013706 005737 001126 TST SBDDAT 
(1) sMAKE SURE CLOCK A IS CLEAR. 
(1) ‘PUT PATTERN 052525 INTO BUFFER REG. 
(1) ‘17 SHOULD GET XFERRED TO COUNT REG. 
(1) ‘SELECT: MODE 2, ENABLE. 
(1) ‘NOW GENERATE A MAINTENANCE ST2. 
1) 013712 005037 001124 CLR SGDDAT 
(2) MOV SGDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
ct) 013726 012737 052525 MOV #052525, $GDDAT 
(2) MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
) 013744 012737 001001 MOV #1001, $GDDAT 
(2) MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 013762 005037 001124 CLR S$GDDAT 
(2) MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
(2) MOV @ASR, SGDDAT :/READ DEVICE REG ASR,PUT DATA IN S$GDDAT. 
(1) 014006 052737 002000 BIS #B1T10,$GDDAT 
(2) MOV SGDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 014024 012737 052525 MOV #052525, $GDDAT ;RECORD SGDDAT (PATTERN) IN CASE WE 
(1) “NEED TO TYPE OUT AN ERROR. 
(1) ‘NOW READ BACK THE BUFFER REG. 
(2) ry MOV @ABR,,SBDDAT ;/READ DEVICE REG ABR.PUT DATA IN SBDDAT. 
(1) 014042 023737 001126 001124 CMP SBDDAT,$GDDAT :WAS THE TRANSFER SUCCESSFUL? 
(1) 014050 001401 BEQ 1$ [IF YES THEN BR TO NEXT TEST. 
+ 5 :$$$$$$$$$$$$$S$$$$$$S5S$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 014052 104012 ERROR 12 SERROR FAILED TO XFERR 052525 PATTERN 
(1) :CORRECTLY FROM COUNT TO BUFFER REG. 
(1) E INIT. COMMENT AS TO WH 
() A MIGHT HAVE GONE SOUR. 
55 $$$$$$$$$$S$$S$$5$5$85SSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 014054 1$: 
ail} 000011 P=P+1 
(5) ppeteeeeaeeraeereeereterrterettereeaeereneeeereeeereeeereereeeets 
(4) SeTEST 114 eTEST THAT PATTERN 125252 CAN BE XFERRED BETWEEN A°S COUNT-BUFFER REGS 
3* 


-———-- 
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18-AUG-80 09:15 *TEST THAT PATTERN 125252 CAN BE XFERRED BETWEEN A'S COUNT-BUFFER REGS SEQ 0110 
;*NOW WE'LL SHOT THE WORKS - WE KNOW FROM THE PREVIOUS TEST WE 
CAN GENERATE "CNTR TO BUFF’ H FROM MODE 2 + MAINTENANCE ST2, NOW 
‘WE WELL TRY AND GENERATE A TRANSFER BETWEEN THE COUNTER AND BUFFER 
S*USING A CB PAT PATTERN. 
:#]F NO DATA PATTERN GETS TRANSFERRED, SUSPECT SIG "LD BUFFER" 
[#70 BE STUCK LOW AT THE MUX INPUT FOR THE BUFFER OR 
teCNTR TO BUFF’ H NOT GETTING THROUGH TO THE LOAD INPUTS OF THE 
S*BUFFER REGISTER. 
:e]F JUST ONE OR A FEW BITS GETS MESSED UP ON THE XFERR- 
[*SUSPECT THE RESPECTIVE MUX OR ETCH BETWEEN THE COUNT REG 
[*AND MUX. GOOD LUCK. 
;* 
‘® PROBABLE SYNC POINT FOR THIS TEST:: "RD STAT 8” 
;* 
** 
+ eeeeeeeeneeeeeeeeteeeeeeeeeeeereeeeeeenereneerneeneeeneeeereres 


000004 T1114: SCOPE 
sGENERATE A SYNC PULSE 
* MOV QBSR- SBDDAT s/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 


005737 001126 TST $80 

;MAKE SURE CLOCK A IS CLEAR. 
;PUT PATTERN 125252 INTO BUFFER REG. 
:1T SHOULD GET XFERRED TO COUNT REG. 
;SELECT: MODE 2, ENABLE. 
sNOW GENERATE A MAINTENANCE ST2. 


005037 001124 CLR SGDDAT 

;* MOV $GDDAT, @ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
012737 125252 001124 MOV #125252, $GDDAT 

3 MOV SGDDAT,@ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
012737 001001 001124 MOV #1001, $GDDAT 

g* MOV SGDDAT,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
005037 001124 CLR S$GDDAT 

3* MOV SGDDAT, @ABR :/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 

3* MOV @ASR, SGDDAT :/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 
052737 002000 001124 BIS #B1T10,$GDDAT 

3 MOV SGDDAT@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
012737 125252 001124 MOV #125252, $GDDAT ;:RECORD SGDDAT (PATTERN) IN CASE WE 

‘NEED TO TYPE OUT AN ER 


AN ERROR. 
;NOW READ BACK THE BUFFER REG. 
:* MOV @ABR ,, SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
023737 001126 001124 CMP SBDDAT,SGDDAT ;WAS THE TRANSFER SUCCESSFUL? 
001401 1$ :1F YES THEN BR TO NEXT TEST. 
37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104012 ERROR 12 sERROR FAILED TO XFERR 125252 PATTERN 
;CORRECTLY FROM COUNT TO BUFFER REG. 


————_ —_—_———_--- -—- — eee accompa sos Sassen Gunners eesti 


Hg ; 
'LPA=KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 30G6(1063) 24-OCT-80 09:38 PAGE 3-90 
CRLPGC.P11  18-AUG-80 09:15 1114 | ®TEST THAT PATTERN 125252 CAN BE XFERRED BETWEEN A'S COUNT-BUFFER REGS SEQ 0111 
(1) :SEE INIT. COMMENT AS TO WHY 
() ‘11 MIGHT HAVE GONE SOUR. 
: : :$$$$$$$S$S$S$S$SSS$S$SS5S>> ERROR <<SSSSSSSSSSSSSSSS5SSSS555S 
(1) 014234 1$: 
(1) 000012 P=P+1 
2550 
2557 
2593 
(5) SERRA AAA AA AAEAAAAA AA AEAREAAAAAAAAAAAAAEAAEAAARAAAAAAAERAREA ATES 
4) SeTEST 115 eTEST THAT A°S COUNT REGISTER ISN'T CLEARED IN MODE 1 WHEN STP2 IS GENER 
** 
(5) ‘eTHIS TEST IS DESIGNED TO MAKE SURE THAT WE DON'T CLEAR THE COUNT 
(3) “*REGISTER IN MODE 1 WHEN AN STP2 IS GENERATED. 
°* 
(6) :* PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF A’ 
8 : 
** 
(4) + Reeeeeeneeeeeeeeeeetereeeeeeereeeeeeeeenerteeeetereneneneeerere 
(3) 014234 000004 151115: SCOPE 
(1) :MAKE SURE CLOCK A IS CLEAR. 
(1) [LOAD ALL ONES INTO BUFFER COUNT REGS. 
(1) [SET MODE 1. 
(1) “GENERATE A MAINTENANCE STP2. 
(1) “SEE IF IT CLEARED COUNT REG. 
(1) 014236 005037 001124 CLR SGDDAT 
(2) 38 MOV SGDDAT,@ASR 3/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
ct) 014252 012737 177777 001124 MOV #177777, SGDDAT 
(2) * MOV SGDDAT,@ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(1) 014270 012737 000200 001124 MOV #200, $GDDAT 
(2) 3* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(2) :* MOV @ASR,SGDDAT :/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 
(1) 014316 052737 002000 001124 BIS #B81T10,$GDDAT 
(2) * MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(2) * MOV @ACR,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1) 0146344 005737 001126 TST SBDDAT 
(1) 014350 001001 BNE 1$ :BR IF NO - NEXT TEST. 
5; {8S$SSSSSSSSSSSSSSSSSSSS$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 014352 104012 ERROR 12 sERROR CLOCK A MODE 1 + STP2 CLEARED COUNT REG. 
(1) [TO SCOPE FIND OUT WHAT IS GENERATING 
(1) “SIGNAL ON CLR INPUT OF COUNT REG. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSS555 
(1) 014354 1$: 
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PAGE 3-91 
CRLPGC.P11  18-AUG-80 09:15 T1116 ®TEST THAT A'S COUNT REGISTER ISN'T CLEARED IN MODE 2 WHEN STP2 IS GENERA SEQ 0112 
(5) FRAAAAAAAAAAAAAAATAAAAAAAAAAAAAAARAAAAAAAAAARAAAAAAAAAAAAER AAAS 
(4) :ATEST 116 *TEST THAT A°S COUNT REGISTER ISN'T CLEARED IN MODE 2 WHEN STP2 IS GENER 
(5) :STHIS TEST 1S DESIGNED TO MAKE SURE THAT WE DON'T CLEAR THE COUNT 
(3) ; *REGISTER IN MODE 2 WHEN AN STP2 IS GENERATED. 
a3 ce PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF AT’ 
** 
(5) : 
(4) s  evcaeneccercccccecececececseceececeeeeenerneenscereensececceees 
(3) 014354 000004 TST116: SCOPE 
(1) ;MAKE SURE CLOCK A IS CLEAR 
(1) ‘LOAD ALL ONES INTO BUFFER COUNT REGS. 
(1) [SET MODE 2. 
(1) [GENERATE A MAINTENANCE STP2. 
(1) 7SEE IF IT CLEARED COUNT REG. 
(1) 014356 005037 001124 CLR SGDDAT 
(2) 3* MOV SGDDAT,@ASR :/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 
a) 014372 012737 177777 001124 MOV #177777 ,SGDDAT 
(2) s¢ MOV SGDDAT,@ABR :/ PUT DATA FROM S$GDDAT TO DEVICE REG ABR 
(1) 014410 012737 001000 001124 MOV #1000, $GDDAT 
(2) * MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(2) 3* MOV @ASR,SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 
(1) 014436 052737 002000 001124 BIS #B1T10,$GDDAT 
= 3* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(2) 3 MOV @ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1) 014464 005737 001126 TST SBDDAT 
(1) 014470 001001 BNE 1$ :BR IF NO - NEXT TEST. 
5 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 014472 104012 ERROR 12 ERROR CLOCK A MODE 2 + STP2 CLEARED COUNT REG. 
(1) 0 SCOPE FIND OUT WHAT IS GENERATING 
(1) STERNAL ON CLR INPUT OF COUNT REG. 
ss :$$S$SS$SS$SSS$SS$SSSSS$SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

(1) 014474 1$: 

2595 

2606 

2607 FURAAAAAeeHAAAAAAAKAAAAAAAA AAA AAAAA AAA K AKA AKeKAKKAAKAAA KARA KeAet 
(3) ;#TEST 117 *TEST THAT MODE 3 + “'STP2"’ CLEARS A'S COUNT REGISTER. 
(4) IN THIS TEST WE'LL DO A MODE 3 FOR THE FIRST TIME. 
(4) [*MODE 3 + STP2’ SHOULD CLEAR THE COUNT REGISTER, 
(4) S*WE KNOW FROM A PREVIOUS TEST THAT INIT’ L S ABLE 10 
(4) *CLEAR THE REG. AND ALSO THAT VF tan GEN ERATE AN "STP2'' H. 
(4) *'MODE AO (1)''H * "MODE A ‘H+ “'STP2"' H = CLEARING SIGNAL. 


(5) te 





anneimeanemantatenengsas seratnalenathaesenshoesicinesmaanaats ; 
Seacontes DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-0C1-80° 09:38 PAGE 3-92 
CRLPGC.P11 18-AUG-80 09:15 1117 “TEST THAT MODE 3 + “STP2"* CLEARS A'S COUNT REGISTER. SEQ 0115 


3} :* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A 
;* 
(4) te 
(3) sUeeeeeeeeeeeeeeeeeeeeetereeeeeeeneneeeeeeeeeeeereeeeeeeeeerere 
{23 014474 000004 1$1117: SCOPE 
2609 sCLEAR CLOCK A + SELECT MODE 3. 
2610 LOAD ALL ONE'S TO BUFFER + COUNTER REGS. 
2611 SGENERATE A MAINTENANCE ''STP2'’. 
612 ‘THIS SHOULD CLEAR THE COUNT REG. 
2614 :1S COUNT REG. CLEAR? 
2615 014476 012737 001400 001124 MOV #1400, $GDDAT 
(1) :* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
2617 014514 012737 177777 001124 MOV #177777 , SGDDAT 
2619 3* MOV SGDDAT,@ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
(1) :* MOV @ASR,SGDDAT ;/READ DEVICE REG ASR,PUT DATA IN SGDDAT. 
2620 014542 052737 002000 001124 BIS #B1T10, $GDDAT. 
aH ;* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(1) :* MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
2623 014570 005737 001126 TST SBDDAT 
2624 014574 001401 BEQ 1$ :BR IF YES - NEXT TEST. 
£ ss SSS$SSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2626 014576 104012 ERROR 12 sERROR-CLOCK A-COUNT REGISTER FAILED TO 
2627 ‘CLEAR IN MODE 3 ON ‘'STP2"’ PULSE. 
5s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
18: 
FRARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAAAAAAARAAEAETS 
:#TEST 120 *TEST THE AUTODECREMENT FEATURE OF CLOCK A'S BUFFER 


THIS IS GOING TO BE A BIGGIE-WITH TWO PARTS. 

*PART1: WE'RE LOADING THE BUFFER WITH ALL ONES; MODE 0; RATE STP1, 
WITH AUTO INC (1)" SET (FOR FIRST TIME!). NOW WE'LL GENERATE 
THE THING TO ¥e FOR IS THE arty the COMBO OF ki 
“MODE AO (0)" "MODE Al (0)" MODE 0) + ‘AUTO INC (1)"' H + 
“A _OVERFLOW" AL LL SEEDING Down COUNT SIDE OF THE 74193 CHIP. 


1 
: ePART2: IF PART 1 WAS SUCCESSFUL WE'LL LOOK TO SEE, IF 
THE COUNTER GOT LOADED WITH THE NEW VALUE 177776. 
Tiel on" LOu'" FEEDS A ONE SHOT 


T WE CAN 
GET *‘A RELOAD’ H BUT THE BiG Test HERE IS SEEING IF THAT 
ONE SHOT SPITS OUT ny RELOAD'* H TOO SOON TO C eo THE BUFFER 


oonnennannne 
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014600 


014602 


014626 


014644 


014662 


014710 


014726 


014744 
014752 


014754 


18-AUG-80 


000004 


005037 


012737 
012737 


012737 
052737 


012737 


023727 
001402 


09:15 


001124 


177777 


000020 


000015 


010000 


177776 


001126 


001124 


001124 


001124 


001124 


001124 


177776 
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120 “TEST THE AUTODECREMENT FEATURE OF CLOCK A'S BUFFER 


‘* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A 


» Soon oenecennenoneemegnnneononunnaneseennenesannenenneneNetent 


781120: SCOPE 


CLR 
s* MOV 


had MOV 
MOV 


7* MOV 
MOV 


3¢ MOV 
MOV 


3 MOV 


jt MOV 
BIS 


:* MOV 
;PART 1 
MOV 


“LOAD BUFFER + COUNT REGS. 
[SET AUTO INCREMENT HOD a 
SENABLE COUNTER, MODE ATE STP1 
‘ZAP! A MAINTENANCE ay mAS BEEN MADE. 
:STOP HERE AND LOOK WHAT JUST HAPPENED. 
71. STP1 CLOCKED THE COUNTER (SET 177777). 
:2. COUNTER OVERFLOWED = "A OVERF : 
:3. MODE 0 + "A OVERFLOW’ L + A AUTO INC (1)° 
: DOWN COUNTED THE BUFFER. 
th. A OVERFLOW L GOES THROUGH ONE SHOT DELAY 
75. ‘A RELOAD'' H CAUSES A BUFFER TO COUNTER 
; RELOAD. 
$GDDAT 


SGDDAT,@BSR 3/ PUT DATA FROM $SGDDAT TO DEVICE REG BSR 


SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
#177777 , SGDDAT 


SGDDAT ,@ABR ;/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
#20,$GDDAT 


SGDDAT,@BSR ;/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
#15, SGDDAT 


SGDDAT ,@ASR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 


@ASR,SGDDAT :/READ DEVICE REG ASR,PUT DATA IN SGDDAT. 
#B1T12,$GDDAT 


SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
DID BUFFER GET DECREMENTED? 


#177776,$GDDAT ;SET FOR ERROR TYPEOUT IF ANY. 
;READ THE RESULTS OF THE BUFFER. 


@ABR ,SBDDAT ;/READ DEVICE REG ABR,PUT DATA IN SBDDAT. 
S$BDDAT,#177776 ;DID BUFFER DECREMENT TO 177776? 
1$ BR IF YES TO PART 2 


32: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104012 


ERROR 


12 sERROR-CLOCK A. AFTER AN + te 
;WITH AUTO INC ENABLED MODE 0, THE 
BUFFER REGISTER FAILED TO DOWN COUNT 
;SEE ABOVE COMMENTS FOR SEQUENCE 





SEQ 0114 
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CRLPGC .P11 18-AUG-80 09:15 T120 *TEST THE AUTODECREMENT FEATURES OF CLOCK A‘S BUFFER 
2693 :0F EVENTS 
sees 014756 000411 BR 2$ IF ERROR ONLY LOOP ON PART 1. 
32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
4] 014760 1$:~ PART 2 DID NEW COUNT GET TRANSFERRED TO COUNT REGISTER? 
3699 READ THE COUNT REGISTER 
(1) 3°. MOV @ACR ,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
2700 014770 023727 001126 177776 CMP SBDDAT #177776 +4}: NEW VALUE OF T ER 
2701 REGISTER GET PROPERLY LOADED INTO 
2702 [THE COUNT REGISTER? 
srt 014776 001401 BEQ 2s [BR IF YES = NEXT TEST. 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2705 015000 104012 ERROR 12 ERROR CLOCK A. NEW CONTENTS OF 
2706 TBUFFER REGISTER FAILED TO BE PROPERLY 
2707 [LOADED INTO COUNT REGISTER AFTER 
2708 ;AUTO DECREMENT. 
ort ;SEE ABOVE COMMENTS FOR SEQUENCE OF EVENTS. 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2711 015002 2$: ;CLEAR AUTO INC OPTION. aa 
giie 015002 005037 001124 CLR SGDDAT 
o$3% :* MOV SGDDAT ,@BSR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG BSR 
2724 peeeeeeeeeeeeeeeeeeeeeeeeereeeeeeeeeneaeeAeeerAaeeeeeeererereeet 
th :#TEST 121 *TEST THAT CLOCK A'S 1 MHZ CLK CAN BE DISABLED 
& 
(4) {FOR THIS TEST, WE'LL TRY DISABLING THE 1 MHZ CLOCK. TO DO THIS, 
(4) WE! LL SET THE ‘DISABLE OSC 1 MH ~f BIT 11 IN CLOCK B SR. _THEN 
(4) : *COUNTED OR OVERFLOWED, IF SO ERR 
(4) 3*THE UNKNOWN THING HERE I$ BIT 11 OSETTING THE ert F/F THAT 
3)  *GATES WITH THE 1 MHZ FREG TO PRODUCE ‘‘A 1 MHZ CLK 
3) is PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT B’’ 
(3) ie etecececeeecececetecereeteeeneenentececececeeneneneneeeenarens 
(2) 015016 000004 TST121: SCOPE 
2725 
2726 sCLEAR C 
2727 SET THE  OOISABLE OSC 1 MHZ"’ F/F. 
2728 [CLEAR THE BUFFER + COUNT REGS. 
2729 SSTART CLOCK: RATE 1 MHZ, MODE 0, GO. 
sit 015020 005037 001124 CLR SGDDAT 
(1) 3* MOV SGDDAT ,@ASR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
Le 015034 012737 004000 001124 MOV #B1T11,SGDDAT 
(1) 3* MOV SGDDAT ,@BSR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
734 015052 005037 001124 CLR SGDDAT 


SEQ 0115 
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CRLPGC.P11 18-AUG- *TEST THAT CLOCK A°S 1 MHZ CLK CAN BE DISABLED SEQ 0116 
(1) 7 MOV SGDDAT ,@ABR 3/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
Ta8 015066 012737 000003 001124 MOV #3, SGDDAT 
(1) :* MOV SGDDAT,@ASR 3/ PUT DATA FROM nt} TO goes ~ ASR 

2738 015104 005000 CLR RO ;SHORT DELAY. WE ALLOW THIS DELA 
2739 015106 105200 18: INCB RO OCCUR. IF THE 1 mhz CLOCK IS DISABLED 
2740 015110 100376 BPL 1$ NO CLOCKING OF CLOCK A WILL 0 
srt} SEE SOMETHING IN THE COUNT REGISTERS 
(1) Hd MOV @ACR,SBDDAT Hh ry DEVICE REG ACR,PUT DATA a | ees 
2743 «015122 
gris 015126 001007 BNE 2s YES = REPORT ERROR! 
(1) 7* MOV @ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN $BDDAT. 
2746 015140 105737 001126 TSTB SBDDAT 
sre 015144 100001 BPL 3$ 3NO - BR NEXT TEST - NO ERROR. 
33 3 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2749 015146 104012 2s: ERROR 12 sERROR = UNABLE TO DISABLE : Pa CIL.K 
$720 USING “DISABLE OSC 1 MHZ" 
33 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2752 sCLEAR CLOCK A. 
2753 015150 005037 001124 3$: CLR SGDDAT 


3* MOV SGDDAT ,@ASR ;/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 


| 
| 
| 
005737 001126 TST SBDDAT DOES COUNT REG HAVE ANYTHING IN 





_————— 
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015164 


015166 


015204 


015230 


015256 


18-AUG- 


-SBTTL * 
-SBTTL * PHASE 4 CLOCK B COUNT FUNCTION TESTS 
SBTTL * 


FRAAAAAAAAARAAAAAAAAAAAAA TARA AAAAAAAAAAAAAAAAEAAAAAAAAAAAAEAEAEE 


jaTEst 122 *TEST THAT CLOCK B WILL COUNT ONCE FIRST CLOCK B COUNT 


T 
3*S0 WE*RE GOING y 4 HAVE TO DO A_COUPLE TRICKY 


PULSE 
3*DID THAT BEFORE); (2) SET CLOCK B ‘FEED B TO A’ BI 
ere one EITHER) SO THAT WE CAN ~ at “A 1 MHZ" H TO 
*"B 1 MHZ" L TO GIVE US ‘CLOCK B"’ 


is PROBABLE SYNC POINT FOR THIS TEST:: "LD STAT 8” 
*t 
+ Reeeeeeeeeeeeeeeeeeeeteeeeereeeeeeaneeeeeneenereneeerenereneete 
000004 1$1122: SCOPE 
:CLEAR CLOCK B AND DISABLE 1MHZ OSC. 
012737 004000 001124 MOV #B1T11,SGDDAT 
;* MOV SGDDAT,a@BSR i PUT DATA FROM SGDDAT TO DEVICE REG BSR 
LEAR B'S BUFFER + COUNT 
‘SELECT “FEED B TO A’, RATE 1 MHZ, GO. 
005037 001124 CLR SGDDAT 
3* MOV SGDDAT, aBBR 7 PUT DATA, FROM SGDDAT TO DEVICE REG BBR 
[GENERATE A MAINTENANCE 1 MHZ PULSE.. 
:DID COUNTER COUNT? 
3* MOV GDDAT :/READ DEVICE REG BSR,PUT DATA IN S$GDDAT. 
052737 000043 001124 BIS rei Tsto1tt tBITO, $GDDAT 
3* MOV SGDDAT, @BSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
;* MOV SGDDAT :/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 
052737 004000 001124 BIS sith $GDDAT 
3* MOV SGDDAT@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
3 MOV @BCR,SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
005737 001126 TST SBDDAT 
001001 BNE :BR IF YES TO NEXT TEST. 
5 5 ;$$$$$$$$$$$$5$$5$555585SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
106014 ERROR 14 SERROR - CLOCK B. FAILED TO ADVANCE 


COUNT REGISTER. 


SEQ 0117 


hre-antig DIAGNOSTIC MD-11-CRLPG-C 
CRLPGC P11 18-AUG-80 09:15 
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T122 *TEST THAT CLOCK B WILL COUNT ONCE FIRST CLOCK B COUNT 


310 SCOPE: CHECK LOAD + CLEAR INPUTS TO 
' :COUNT REG TO SEE IF NOT BEING HELD LOW. | 
; IF WE'RE GETTING ANY thee 8" 
sPULSES = WE SHOULD GET ONE EACH P OF 
; OMES FROM 


SEQ 0118 


;THIS SUBTEST. “CLOCK BY L C 

THE @ CLOCK TIMING SECTION. THE RATE 1S 
:1, MHZ. "B 1 MHZ" L IS GENERATED, BY 
SN ur Hs “FEED BOA C1) H, 

:THE "A. 1 MH2"* IS GENERATED BY ‘MAINT 
;SIMUL 1 MHZ" IN CLOCK A. 


32: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


get} 015314 


000004 
005037 


(2) 015314 
828 


2829 015316 001124 


tty 015322 005037 001354 


2836 015336 012737 004000 001354 


2847 015364 


012737 004042 001354 





1$: 


FRRAAAARAEAAA AAA TEAR AREER AAA AA AAA AA EAA A AREA AERAAARERERAEEED 


:#TEST 123 *TEST THE ABILITY IF CLOCK B TO COUNT FROM ZERO TO OVERFLOW 


LAST TEST WE FOUND OUT WE COULD yee CLOCK A°S COUNTER, 

7*SO IN THIS TEST WE'RE GOING TO GO FROM 0-377 COUNTING. 

S*WE'LL USE THE SAME PROCEDURE AS LAST OeST TO GENERATE ‘‘CLOCK B’' L. 
SUNK IS THE ABILITY OF THE F/F'S TO PROPAGATE THEIR OVERFLOWS. 


relF IT IS DESIRED TO START THIS TEST AT A VALUE OTHER THAN 0, CHANGE 
:*THE SECOND INSTR. OF THIS TEST TO A VALUE TO BE LOADED INTO THE BUFFER 
;#T0 THAT VALUE DESIRED. 


;* PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF B’’ 


‘* 
3* 
° 
Py 
FERRARA AAA AAA AAAAAAAAAAAAA AERA AAA A AAA A AAA A AAA A AAA A EE EES 
T 


$1123: SCOPE 


* 


CLR SGDDAT ;START = ar ge FROM ZERO. 
A VALUE OTHER THAN ZERO MAY BE 
‘PATCHED IN HERE IN ORDER THAT A COUNT 
:MAY BE STARTED HIGHER. 
1$: CLR STMDAT 
:* MOV STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
[CLEAR CLOCK B, DISABLE 1 MHZ CLOCK A. 
MOV #B1T11,STMDAT 
7* MOV STMDAT ,@BSR ;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
ZLOAD oe INTO COUNT + poh REGS. 
1S" THE LOOP BACK POINT ON 
:"‘LOOP TON TEST" (SwW14=1) FEATURE. NORMAL 
;LOOP BACK POINT WILL BE "2S 
:* MOV SGDDAT ,aBBR ;/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 


SELECT: "DISABLE OSC 1 MHZ"; ‘FEED B TO A”; 


Z. 
:GO. ENABL MUST BE SET AFTER "FEED B TO A” 
MOV #4042 ,STMDAT 


ee 


ae | 


ae DIAGNOSTIC MD-11- 


CRLPGC.P11 18-AUG-80 09: 


015402 005237 001354 


015416 


015426 


015444 


015460 
015466 


015470 


CRLPG-C 
15 


052737 004000 001354 


005237 


001124 


123737 001126 001124 
001402 





macy! 306(1063) 


MOV 
INC 


MOV 


CMPB 
BEQ 


STMDAT ,@BSR 
STMDAT 


STMDAT ,@BSR 


@ASR,STMDAT 
#B1T11,STMDAT 


C 10 
24-OCT-80 09:38 PAGE 3-98 
*TEST THE ABILITY IF CLOCK B TO COUNT FROM ZERO TO OVERFLOW 


;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 


;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 


;GENERATE A CLOCK PULSE. 
;SHOULD CAUSE THE CLOCK TO 
INCREMENT ONCE. 


;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 


STMDAT,@ASR ;/ PUT DATA FROM STMDAT TO a A. ASR 

SGDDAT :$GDDAT IS USED TO KEEP TRACK OF THE 
:VALUE THE CLOCK SHOULD COUNT TO. 

@BCR ,SBDDAT ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 

SBDDAT,SGDDAT  ;DID THE COUNT OCCUR CORRECTLY? 

3$ sIF YES - BR ‘'3$"’. 


33 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104015 


ERROR 


15 


sERROR CLOCK B FAILED TO UPCOUNT 


CORRECTLY - SEE COMMENTS AT SUB-TEST 


:HEADING FOR MORE DETAILS. 


323 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


000403 


105737 
001410 


eserre 
0017 

162737 
000700 


001124 


040000 163430 


000001 


001124 


5$: 


:*WANT TO SEE 


4$ 
$6 
5$ 


#B1T14,aSWR 
#1,$GDDAT 
1$ 


DDAT 


sDID WE ACHIEVE OVERFLOW YET? 


;LOOP ON CURRENT COUNT? 
F NO NEXT COUNT U 


I TO N PDATE. 
IF YES DECREMENT EXPECTED AND RELOAD. 


;G0 TO RELOAD POINT 
;END SUBTEST. 


FRRRAAAAAAAAAAAAAAAA AAA TEAR AA AAA AAA AAA AA AAAAA AAA AAAEEEAAAAAAAE ES 


*TEST THAT CLOCK B CAN GENERATE AN OVERFLOW 


:eNow WE'LL TRY AND GENERATE ‘'B OVERFLOW’ L_WHICH SETS BIT 07. ; 
S*WE'LL DO IT BY PRESETTING THE BUFFER TO 377 = “ee A CLOCK BL 
S*WE ALREADY KNOW WE CAN ADVANCE THE COUNTER, 


: TEST 124 


IS *B 


OVERFLOW 


Ow'’ L COME OVER AND DIRECT SET 


:* “OVERFLOW FL B’’ F/F (BIT 07 IN CSR). 
is PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF B’’ 


i’ 


SEQ 0119 


=a I 





LPA=KW11K DIAGNOSTIC MD-11-CRLPG-C 
CRLPGC.P11 


(2) 015522 
94 


33338 


015524 


3a3333 


015550 


323 


015566 


015604 
015630 


015656 
015662 


BSSB-~3-33-3-33-3 
ed es es ot ot os SS 
OWON~RA~UVUSY~WYNR]~O 


2920 015664 


015666 

2924 015670 

2926 015700 

2928 015706 
29 


015710 


18-AUG-80 09:15 7124 
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oer 306(1063) 24-0CT- -80. 09:38 PAGE 3-99 
*TEST THAT CLOCK B CAN GENERATE AN OVERFLOW 


SRRARAAAARAAAAAAAEAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAEAAAARAAAAAAEAAAEE 


000004 +1124: SCOPE 
:CLEAR CLOCK A. 
iCLEAR CLOCK 
COUNT AND BUFFER REGS. 
SELECT ADISABLE OSC 1 MHZ"; “FEED @ TO A”; 
:GO. ENABL MUST BE SET AFTER “FEED B TO A’ 
‘GENERATE A CLOCK PULSE. 
;DID OVERFLOW FLAG SET? 
005037 001124 CLR SGDDAT 
3* MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
* MOV SGDDAT, @BSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
012737 000377 001124 MOV #377, $GDDAT 
* MOV SGDDAT,aBBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
012737 004042 001124 MOV #4042, $GDDAT 
i* MOV SGDDAT,aBSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
005237 001124 INC SGDDAT 
;* MOV SGDDAT.aBSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
7* MOV @ASR ,$GDDAT ;/READ DEVICE REG ASR,PUT DATA IN $GDDAT. 
052737 004000 001124 BIS #B1T11,$GDDAT 
. * MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
3* MOV @BSR,SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
105737 001126 TSTB SBDDAT 
100402 BMI 1$ :BR IF YES TO '1$"'. 
1 SUBSSSSBSSSBSSSSSSSESSSSBD> ERROR <<S$$SSSSSSSSSSSSSSSSSSSSSS 
104014 . ERROR 14 sERROR CLOCK B "'B OVERFL FLAG’ (CSR BIT7) 


FAILED TO SET ON OVERFLOW. 
ss SOBSBSSBSSSSSSSSSpRASSSSI>> ERROR <<S$$SSSSSSSSSSSSSSSSSSSSSSS 


000411 ‘*., BR 2$ 
ts: :WAS COUNTER RELOAD AFTER OVERFLOW 
:* MOVs @BCR,SBDDAT —s /READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
022737 000377 001126 CMP 0s #377 , SBDDAT 
001401 BEQStiéOS :BR IF YES TO NEXT TEST. 
+: :$$$$$8$$$$$SS$$S$S555SS5$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104014 ERROR 14 SERROR CLOCK B COUNT REG. FAILED 


710 BE RELOADED AFTER OVERFLOW. 


SEQ 0120 


ae! 
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CRLPGC.P11 18-AUG-80 09:15 *TEST THAT CLOCK B CAN GENERATE AN OVERFLOW SEQ 0121 





5: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

2933 015712 2$: 
2934 
2940 
294 SRE RER ERRATA EE AREA AAA A EAE AA RARER AREA ATER EA AAE AREA A ARERR AEE 

(3) jSTEST 125 *TEST THE INIT. ABILITY OF CLOCK B'S COUNT REG. 

(4) L WE'RE GOING TO DO HERE IS TEST THE INITIALIZE INPUTS 

(4) io10 THE 74193 ICS THAT FORM THE COUNT REGISTER. 

(5) ce PROBABLE SYNC POINT FOR THIS TEST:: "LD STAT A’ 

2 : 

*® 

(3) *: z REAR REA EEE ARAEREEE 

(2) 015712 000004 1§1125: SCOPE 
2945 sCLEAR CLOCK A. 
2946 [CLEAR CLOCK B. 
2947 [LOAD ALL ONES TO BUFFER + COUNT REGS. 
2948 015714 005037 001124 CLR S$GDDAT 
si) 3* MOV SGDDAT,@ASR :/ PUT DATA FROM $SGDDAT TO DEVICE REG ASR 

(1) it MOV $GDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
2951 015740 012737 000377 001124 MOV #377 ,SGDDAT 
ASH 3* MOV SGDDAT, aBBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
2954 015756 004737 032534 JSR PC, SRESET :D0 SYSTEM INIT - GENERATES “‘INIT’’ H 
2956 015762 005037 001124 CLR SGDDAT FIX $GDDAT FOR ERROR TYPEOUT, IF NEEDED. 
328 ‘READ B'S COUNT REGISTER, INIT 

(1) it MOV @BCR,SBDDAT :/READ DEVICE REG BCR,PUT DATA IN S$BDDAT. 
2959 015776 005737 001126 TST $BDDAT 
2960 ;SHOULD HAVE MADE IT AL ZEROS. 
2961 016002 001401 BEQ 1$ “BR IF YES - NEXT TEST. 

Y? £5 ;$$$$$$$$$$$$$S$SSS$SSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

2963 016004 104007 ERROR 7 sERROR CLOCK B - INIT FAILED TO CLEAR 
¥¢4 :COUNT REG. 


37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2966 016006 1$: 


e 
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CRLPGC.P11  18-AUG-80 09:15 *TEST THAT CLOCK 8 DOESN’T COUNT WHEN NO RATE IS SELECTED 
FRAAARAAAAAAAAARAA AE TAAAAAAATAAAAAAARAAAAAAARAAAAAAAAAAAERAAAAERE 
(3) tSTEST 126 *TEST THAT CLOCK 8 DOESN'T COUNT WHEN NO RATE IS SELECTED 
( ) RRAAAAAAAAARAARAEAAEAAAEAAEAATAAAAAAAAAAAAATRARAAARAAAAARAARAAEARAARAAAEE 
2622 016006 000004 481126: SCOPE 
2970 CLEAR CLOCK A. 
2971 SCLEAR CLOCK B. 
2972 :ZEROS TO BUFFER + COUNT REGS. 
2973 ;ENAB ABLE COUNTER TO COUNT - RATE - 0 
2974 :(NO RATE). 
2975 016010 005037 001124 CLR SGDDAT 
oy? yt MOV SGDDAT,@ASR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 
sh 3* MOV SGDDAT, aBSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
(1) jt MOV SGDDAT,aBBR 3/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
2979 016044 005237 001124 INC SGDDAT 
(1) :* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT To DEVICE REG ASR 
2981 016060 005 000 CLR = RO SDELAY FOR ANY COUNT 
2982 016062 105200 1$: INCB—s RO =COULD FALSELY OCCUR 
2983 016064 001376 BNE 1$ sTHIS DELAY APPROX. 369 MS ON A 
2984 [PDP 11/20. 
2985 
2986 :DID ANY COUNT OCCUR? 
(1) se MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN $BDDAT. 
2988 016076 005737 001126 TST SBDDAT 
2989 016102 001401 BEQ 2$ : IF NO BR TO NEXT TEST. 
5: {$$SSS$SS$SSSSS$SSSS$SESESS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2991 016104 104014 ERROR 14 sERROR - CLOCK B COUNTED Wie ENABLED BUT 
2992 [NO RATE SELECTED. BETTER FIND OUT 
2993 ‘WHATS GENERATING "CLOCK B’’ L PULSES. 
5: {$$$$$$$$$$$S$SS$SS$S$S$$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
2995 016106 2s: 


SEQ 0122 


a 


— 


L 
CR 
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LPGC.P11  18-AUG-80 09:15 1126 *TEST THAT CLOCK ® DOESN'T COUNT WHEN NO RATE IS SELECTED SEQ 0123 
+ ” 
(5) FRRARAAARAAA AERA AREA AERA AERA AAAAAAAAARAAAAAAAAAAAEAAAAAAAARAEAATE 
(4) :STESt 127 #TEST THE ABILITY OF CLOCK B TO COUNT AT 1MHZ PART 1 
(5) iSTHIS TEST IS DESIGNED TO TEST CLOCK B'S ABILITY TO COUNT 
(3) :+IN RATE: IMHZ P 
(6) ‘& PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT A” 

*? 
(5) i 
(4) 4 3 RRR EAAAAAAAAAAEAAAAAERAAAAAARAERAAAEE 
(3) 016106 000004 1§1127: SCOPE 
(1) :/CLEAR CLOCK A. 
(1) 016110 005037 001124 CLR $GDDAT 
(1) :/CLEAR CLOCK B. 
(1) :/CLEAR THE BUFFER + COUNT REGS. 
ot “/SELECT: RATE: 1MHZ ; GO. 
@) 3 MoV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(2) ie MoV SGDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(2) it MOV $GDDAT, aBBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
a) 016144 012737 000003 001124 MOV #1!2,$GDDAT 
(2) :* MoV SGDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(1) 016162 005000 CLR RO :/NOW WE'LL DO A LITTLE DELAY. 
(1) 016164 005200 1$: INC RO :/THIS DELAY WILL AMOUNT TO APP. 269 MS. 
a) 016166 001376 BNE 1$ -  S70N A PDP=11/20. 
wv :/D1D COUNTER COUNT AT ALL? 
(2) it MoV @BCR, $SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 016200 005737 001126 TST $BDDAT 
a 016204 001010 BNE :/BR IF YES - NEXT TEST. 
(2) 
(2) :* MoV @BSR, SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
(1) 016216 105737 001126 1STB = SBDDAT 
(1) :/COUNT TO OVERFLOW - SO WE'LL SEE IF 
(1) :/THE OVERFLOW F/F SET BEFORE WE CRY WOLF. 
cD 016222 100401 BMI 2$ °/BR IF SET - NEXT TEST. 

+ :$$$$$$$$$S$$SSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 016224 104014 ERROR 14 ;/ERROR CLOCK B ~ COUNTER FAILED TO COUNT 
wD ‘/AT MHZ RATE. 
£1 :$$$$S$$$$$SSSS$SSSSSSS$SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

(1) 016226 2s: 


—_ 


Doectoaes DIAGNOSTIC MD-11-CRLPG-C 


/CRLPGC.P11 


} 


ewe ee eee ee ae 


ee ed ek PUI) ed at ee PUI) 8 st 2 PUNY MUNI NINO NIDY 2 OP? OO OS 


ee. St. tt tt tale Lele eel etleleletet ele etetieteteteeee 
ae eh a 


ce han 
Nn ~ 
~~ 


~ 
— 
~ 


016226 


016230 


016264 


016302 
0 


016346 


18-AUG-80 


000004 


005037 


012737 
005000 
005200 
001376 


005737 
001010 


105737 


100401 


10 
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127 “TEST THE ABILITY OF CLOCK B TO COUNT AT 1MHZ PART 1 


FREE RERARARE RETA AEE EAA A EA ARER AREER AARAAAAAAAARARAAAAAEAAAEE 


:STEST 130 *TEST THE ABILITY OF CLOCK B TO COUNT AT 100KHZ PART 1 


RRR AEE EEA AERA EERAARAAEAARAAKREEE 


;/CLEAR CLOCK A. 


;/CLEAR CLOCK B. 
:/CLEAR THE BUFFER + COUNT REGS. 
:/SELECT: RATE: 100KHZ ; GO. 


:/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
;/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
;/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 


:/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 


;/NOW WE'LL DO A LITTLE DELAY. 
:/THIS DELAY WILL AMOUNT TO APP. 269 MS. 
:/0N A PDP-11/20. 


:/DI1D COUNTER COUNT AT ALL? 
;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
;/BR IF YES - NEXT TEST. 


;/READ DEVICE REG BSR,PUT DATA IN $BDDAT. 


09:15 
s/f 
ISTHIS TEST IS DESIGNED TO TEST CLOCK B'S ABILITY TO COUNT 
:#IN RATE: 100KHZ 
iy PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT A’ 
*? 
i 
781130: SCOPE 
001124 CLR SGDDAT 
:* MoV SGDDAT,@ASR 
i* MoV $GDDAT,aBSR 
it MoV $GDDAT, aBBR 
000005 001124 MoV #1'4,$GDDAT 
it MOV SGDDAT, aBSR 
CLR RO 
1$ INC RO 
BNE 1$ 
it MoV @BCR, $BDDAT 
001126 TST S$BDDAT 
BNE 
it MOV @BSR, $BDDAT 
001126 TSTB —- SBDDAT 


BMI 23 


:/COUNT TO OVERFLOW - SO WE*LL SEE iF 
:/THE OVERFLOW F/F SET BEFORE WE CRY WOLF. 
:/BR IF SET - NEXT TEST. 


37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104014 


ERROR 14 


;/ERROR CLOCK B - COUNTER FAILED TO COUNT 
;/AT 100KHZ RATE. 


33 sSSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSS5S5555 


23: 


SEQ 0124 


r -—--- - — —- -~--——- 


LPA-kw11k a wk MD-11-CRLPG-C 


‘CRLPGC. P11 18-AUG-80 


| 3050 


016346 


016350 


BR PR PR PR PR PALO AR LARA LA LPR LP LL LL LL LP ee Pe Pe ey Pe mm Pe fm, fm, Pe 
BA ed et at a NOIR 8 8 2 NID 8 Sa 9 9 SPN @ PI NUNUNINUD) 2 9 2 2 = SMW FYNAOOUUMUE VW! 
— 


ee ee er ee a a ee a ee ee ee ee ee ee ee eae le ae 


(1) 016466 


000004 


005037 


012737 


005000 
005200 
001376 


005737 
001010 


105737 


100401 


09:15 


001124 


000007 001124 


001126 


001126 
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*TEST THE ABILITY OF CLOCK B TO COUNT AT 100KHZ PART 1 SEQ 0125 
3/a 
FRRRAAAAEAAEAAEAEEAAA AE AAA EAA AE AAA AAAAAAREAAAAAERAERAAEEAAA AT AREES 
jSTEST 131 *TEST THE ABILITY OF. CLOCK B TO COUNT AT 10KHZ PART 1 
t STHIS TEST IS DESIGNED i. a CLOCK B'S ABILITY TO COUNT 
: *IN RATE: 10KHZ 
fe PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT A” 
*? 
** 
- ; MARABAALALZALALALLAALALLLELLLALELALLAELAE RE SARA RRA SERRA RRR RE RRR AAAS S| 
TST131: SCOPE 
;/CLEAR CLOCK A. 
CLR SGDDAT 
;/CLEAR CLOCK B. 
3;/CLEAR THE BUFFER + COUNT REGS. 
:/SELECT: RATE: 10KHZ ; GO. 
3* MOV SGDDAT,@ASR 3/ PUT DATA FROM S$GDDAT TO DEVICE REG ASR 
Pal MOV SGDDAT,@BSR 3/ PUT DATA FROM $GDDAT 10 DEVICE REG BSR 
:* MOV SGDDAT,@BBR 3/ PUT DATA FROM $GDDAT TO DEVICE REG BBR 
MOV #1'6,$GDDAT 
3* MOV SGDDAT,@BSR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
CLR RO 3/NOW WE'LL DO A LITTLE DELAY. 
1$: INC RO :/THIS DELAY WILL AMOUNT TO APP. 269 MS. 
BNE 1$ 7/0N A PDP-11/20. 
3/DID COUNTER COUNT AT ALL? 
3* MOV @BCR,SBDDAT ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
TST SBDDAT 
BNE 2$ 3/BR IF YES = NEXT TEST. 
3* MOV @BSR, SBDDAT 3/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 


TSTB S$BDDAT 
;/COUNT TO OVERFLOW - SO WE*LL SEE IF 
3/THE OVERFLOW F/F SET BEFORE WE CRY WOLF. 
BMI 2s ;/BR IF SET - NEXT TEST. 


33 3 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104014 


ERROR 14 ;/ERROR CLOCK B - COUNTER FAILED TO COUNT 
3/AT 10KHZ RATE. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


23: 





Enact DIAGNOSTIC MD-11-CRLPG-C 
80 09:15 


|CRLPGC.P11 


~ 
_ 
— 


ee ea a a a ee ee ee ee ae ee es a SS ew wee 


RRR RFRA ARR F RRA AAA AA AA AAA EEO COP PO ee Oe Oe Pe Oe me me Om 
ek I ak wd RII ks a a 9 PIN) SPUN NINN 2 9 9 9 SMW EVA AOUUIMNE VM! 


~m 
ee ee ee ee ee ae ele ee 


Ce ee 
Na 
~~ ee 


~ 
a 
~~ 


016466 


016470 


016524 


016542 
016544 
016546 


016560 
016564 


016576 


016602 


016604 


016606 
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MA ‘tie 306(1063) 24-01-80" 09:38 PAGE 3-105 
T1 “TEST THE ABILITY OF CLOCK B TO COUNT AT 10KHZ PART 1 


3/a 


FRRAAARAAAAAAAAAEAEA ARATE AERA AA AAA AAA AEAAAAAAAAAAAAAHAAAAAEHE 


j#TEST 132 *TEST THE ABILITY OF CLOCK B TO COUNT AT 1KHZ PART 1 
i*THIS TEST IS ag 7 TO TEST CLOCK B'S ABILITY TO COUNT 


18-AUG- SEQ 0126 


#IN RATE: 1KHZ PART 
i: PROBABLE SYNC POINT FOR THIS TEST:: "LD STAT A’ 
5? 
*® 
+ Reeeeeeeeeeneeeeeeeeeeteeeeereeeeeeeeeeeeeeeetereneereneeeeeees 
000004 1§1132: SCOPE 
:/CLEAR CLOCK A. 
005037 001124 CLR $GDDAT 
:/CLEAR CLOCK B. 
/CLEAR THE BUFFER + COUNT REGS. 
/SELECT: RATE: 1KHZ ; GO. 
;* MoV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
:* MoV SGDDAT,a@BSR :/ PUT DATA FROM $SGDDAT TO DEVICE REG BSR 
rt MoV SGDDAT, @BBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
012737 000011 001124 MOV #1!10,$GDDAT 
:* MOV SGDDAT,aBSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
005000 CLR RO :/NOW WE'LL DO A LITTLE DELAY. 
005200 1$: INC RO :/THIS DELAY WILL AMOUNT TO APP. 269 MS. 
001376 BNE 1$ :/0N A PDP=11/20. 
:/DID COUNTER COUNT AT ALL? 
;* MoV @BCR,SBDDAT :/READ DEVICE REG BCR,PUT DATA IN $BDDAT. 
005737 001126 TST SBDDAT 
001010 BNE :/BR IF YES - NEXT TEST. 
3* v @BSR,$BDDAT ;/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
105737 001126 TSTB  $BDDAT 
:/COUNT TO OVERFLOW - SO WE'LL SEE IF 
:/THE OVERFLOW F/F SET BEFORE WE CRY WOLF. 
100401 BMI 23 :/BR IF SET - NEXT TEST. 
+ :$$SSSS$SSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
104014 ERROR 14 


;/ERROR ee B - COUNTER FAILED TO COUNT 
:/AT 1KHZ RATE. 


7 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


23: 
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CRLPGC.P11  18-AUG-80 09:15 1132 *TEST THE ABILITY OF CLOCK B TO COUNT AT 1KHZ PART 1 
si 
(5) FRRREARARAERARAEA EATER EAA AAA AAAARERERERERAARAREREAAAEHRERERAAATS 
(4) :aTEst 133 eTEST THE ABILITY OF CLOCK B TO COUNT AT 100HZ PART 1 
(5) ISTHIS TEST IS DESIGNED TO TEST CLOCK B'S ABILITY TO COUNT 
(5) +N RATE: 100HZ 
(6) ‘® PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT A‘ 
*? 
(5) ie 
(4) sRRRAeeAeeeeeKeAA eee eee eee etre ee eeeKetKeeKeeeKeeteeeeeeeeereree 
(3) 016606 000004 1$1133: SCOPE 
(1) /CLEAR CLOCK A. 
(1) 016610 005037 001124 CLR SGDDAT 
(1) :/CLEAR CLOCK B. 
(1) ‘/CLEAR THE BUFFER + COUNT REGS. 
oe :/SELECT: RATE: 100HZ ; 
@) :* MoV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
@) 3 Mov SGDDAT, BSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
(2) it MOV $GDDAT, aBBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
() 016644 012737 000011 001124 MOV #1!11,$GDDAT 
(2) it MoV $GDDAT,aBSR :/ PUT DATA FROM $SGDDAT TO DEVICE REG BSR 
(1) 016662 005000 CLR RO ;/NOW WE'LL DO A LITTLE DELAY. 
(1) 016664 005200 1$: INC RO :/THIS DELAY WILL AMOUNT TO APP. 269 MS. 
(1) 016666 001376 BNE 1$ /0N A PDP-11/20. 
oH :/D1D COUNTER COUNT AT ALL? 
(2) ;* MOV @BCR,$BDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 016700 005737 001126 TST SBDDAT 
Ae 016704 001010 BNE ;/BR IF YES - NEXT TEST. 
(2) . 
(2) :* MoV @BSR, SBDDAT :/READ DEVICE REG BSR,PUT DATA IN SBDDAT. 
(1) 016716 105737 001126 TSTB © SBDDAT 
(1) :/COUNT TO OVERFLOW - SO WE'LL SEE IF 
(1) :/THE OVERFLOW F/F SET BEFORE WE CRY WOLF. 
() 016722 100401 BMI 2% :/BR IF SET - NEXT TEST. 
£1 {SSS$SSSSSSSSS$SSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 016724 104014 ERROR 14 :JERROR CLOCK B - COUNTER FAILED TO COUNT 
(wy :/AT 100HZ RATE 
£1 ;8$$$S$SSS$SSSS$SSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 016726 2$: 





SEQ 0127 


ES ES OS Sse 
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CRLPGC.P11 18-AUG-80 09:15 “TEST THE ABILITY OF CLOCK B TO COUNT AT 100HZ PART 1 


" im 
(5) FRARARAAARAAAARAEAAAA AEA AA AAA AEAAAARERAAAAAAARERAREARATARER AAAS 
(4) j TEST 134 eTEST THE ABILITY OF CLOCK B TO COUNT AT LINE-FREQ PART 1 
(5) ISTHIS TEST IS DESIGNED TO TEST CLOCK B'S ABILITY TO COUNT 
(3) +N RATE: LINE-FREQ RTI 
(6) y PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT A" 
*? 
(5) i 
(4) : Z RARER AAAAAAAAAAAAAARAAAAAARARAAAEAEAAAAARAAAAERE 
(3) 016726 000004 $1134: SCOPE 
(1) /CLEAR CLOCK A. 
(1) 016730 005037 001124 CLR —«- $GDDAT 
(1) /CLEAR CLOCK B. 
(1) :/CLEAR THE BUFFER + COUNT REGS. 
) /SELECT: RATE: LINE-FREQ ; GO. 
(3) :# MOV —«s SGDDAT, @ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
(2) 3* MOV —«s SGDDAT, aBSR :/ PUT DATA FROM $GDDAT TO DEVICE REG BSR 
(2) ie MOV —«sSGDDAT, BBR :/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
a) 016764 012737 000017 001124 MOV «#116, $GDDAT 
Oe pnt ee oo Spe |= MOVE = -SGDDAT,@BSR--. ;/4-PUT DATA-EROM SGDDAT TO DEVICE REG BSR 
(1) 017002 005000 CLR —s RO ;/NOW WE'LL DO A LITTLE DELAY. 
(1) 017004 005200 1$: INC —RO :/THIS DELAY WILL AMOUNT TO APP. 269 MS. 
(1) 017006 001376 BNE 1$ :/0N A PDP-11/20. 
( ;/DID COUNTER COUNT AT ALL? 
(2) :* MOV —s @BCR,, SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 017020 005737 001126 TST - $BDDAT 
(1) 017024 001010 BNE 2$ :/BR IF YES - NEXT TEST. 
(2) 
(2) ie MOV _—s @BSR,, SBDDAT :/READ DEVICE REG BSR,PUT DATA IN S$BDDAT. 
(1) 017036 105737 001126 TSTB —- SBDDAT 
(1) :/COUNT TO OVERFLOW - SO WE'LL SEE IF 
(1) :/THE OVERFLOW F/F SET BEFORE WE CRY WOLF. 
() 017042 100401 BMI 2$ :/BR IF SET - NEXT TEST. 
£1: $$$SSSSSS$SS$SSSSSSSSS$$$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
017044 104014 ERROR 14 s/ERROR CLOCK B - COUNTER FAILED TO COUNT 


3/AT LINE-FREQ RATE. 
32 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
017046 2$: 


Ce ed 
wo —— 
~~ 


SEQ 0128 


a 
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CRLPGC.P11 18-AUG-80 09:15 “TEST THE "FEED B TO A’’ 24 BIT COUNTER FEATURE OF CLOCKS A + B | SEQ 0129 
FRAAARAARARARAAAAAARAAAAEAAAAAAAAAAAAAAAAAAAAARAAHEAAAAAAAAAEAAATE 
(3) :ATEST 135 *TEST THE FEED B TO A’ 24 BIT COUNTER FEATURE OF CLOCKS A + B 
(4) i aWeE® RE GOING TO TEST CLOCKS A+B AS A 24 BIT COUNTER; THAT IS; 
(4) i*Me °RE GO GOINT TO TAKE THE OVERFLOW FROM CLOCK B AND FEED IT INTO 
(5) Se 
33 :* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF B"' 
(4) co 
(3) c  eveueecenenserececececeeceececennenenaneneneneseeecereceeeeees 
322 017046 000004 1$1135: SCOPE 
3066 SCLEAR CLOCK A. 
3067 [CLEAR CLOCK B. 
3068 CLE AR A's BUFFER + COUNT REGISTERS. 
3069 ;PRESET B'S BUFFER + COUNT TO -1 FROM 
3070 OVERFLOW. 
3071 SELECT: TDISABLE OSC 1 MHZ"; RATE 1 MHZ; 
3072 FEED BT 
3073 :SET PNABL. MUST BE SET AFTER "FEED B TO A". 
3074 TENABLE CLOCK A; MODE 0; RATE 0. 
3075 :SIMULATE A 1 MHZ PULSE - THIS PULSE 
3076 WILL CLOCK CLOCK B'S COUNTER 
3077 EGISTER. AN OVERFLOW WILL 
3078 sOccUR - THAT OVERFLOW seevet 
3079 sCLOCK CLOCK A‘S COUNT REGISTER 
3080 :DID CLOCK A‘S COUNT REG GET CLOCKED? 
3081 017050 005037 001124 CLR $GDDAT 
308s 3* MOV SGDDAT,@ASR 3:/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) 3* MOV SGDDAT,a@BSR :/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
(1) 3* MOV SGDDAT ,@ABR :/ PUT DATA FROM $GDDAT TO DEVICE REG ABR 
3085 017104 012737 000377 001124 MOV #377, $GDDAT 
(1) 3* MOV SGDDAT,aBBR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BBR 
3087 017122 012737 004042 001124 MOV #4042, $GDDAT 
(1) 3% MOV SGDDAT,a@BSR 3:/ PUT DATA FROM $SGDDAT TO DEVICE REG BSR 
3089 017140 005237 001124 . INC S$GDDAT 
(1) 3% MOV SGDDAT,a@BSR 3/ PUT DATA FROM SGDDAT TO DEVICE REG BSR 
3091 017154 012737 000001 001124 MOV #1,$GDDAT 
st ;* MOV SGDDAT,@ASR :/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
(1) ;* MOV @ASR, $GDDAT -/READ DEVICE REG ASR,PUT DATA IN S$GDDAT. 
3094 017202 052737 004000 001124 BIS #B1T11,$GDDAT 
(1) 8 MOV SGDDAT,@ASR :/ PUT DATA FROM $GDDAT TO DEVICE REG ASR 
me 3* MOV @ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN $BDDAT. 
3097 017230 005737 001126 TST SBDDAT . 
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CRLPGC.P11 18-AUG-80 09:15 *TEST THE ‘FEED B TO A’ 24 BIT COUNTER FEATURE OF CLOCKS A + B SEQ 0130 
44 017234 001001 BNE 1$ ;1F YES THEN BR NEXT TEST. 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
101 017236 104014 ERROR 14 eT UNABLE TO CLOCK CLOCK A*S 
ine COUNT REGISTER WITH THE OVERFLOW 
10 ;FROM CLOCK B. 
104 ;THE MOST LOGICAL PLACE TO START 
105 sWOULD BE _!A CL TIMING’. 
106 ;‘FEED B TOA ( 
107 ;SHOULD BE COMI 
108 sINTO THE ~ ° 
3109 ; COMING ves E— MUX TO BECOME 
aii? : "CLOCK tan 
32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


017240 i$: 
-SBTTL * 
-SBTTL * PHASE 6 CLOCK A+B ADVANCE TESTING 
-SBTTL * 


WW 
—_ 2 — 3 
et ed ed ed ed 
Ounfwr 


AL } 
Ock 
Hee OVERFLOW H 
NG TOGETHER GOING 
,BEGING SELECTED AND 
| 
| 
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peeeeeeereareeeeeeeeeeeeereererederenetereneeearaeeaeeaeeeeeeees 


; TEST 136 “TEST THAT THE TRAILING EDGE OF STP1 WILL INCR. COUNTER 


IN THIS TEST WE'LL SEE IF WE CATCH THE FIRST COUNT 
SeAFTER STP1 COMES IN AND SETS THE ENABLE F/F (°ST1 ENB COUNTER’ 


;*SET). 

SeWHAT WE SHOULD SEE I$ THE LEADING EDGE OF $T1 COME 

[°IN AND SET THE ENB eit AND THE TRAILING EDGE TRIGGER 

pe "CLOCK A® PULSE TO INCREMENT THE COUNTER. 

TeWE KNOW FROM A PREVIOUS Test THAT AN STP1 WILL 

[®COME IN AND SET 'ENABL CNTR A‘ F/F AND THAT THE 

; #COUNTER WILL INCREMENT, SO WHATS HAPPENING IS WE'RE ACCUALLY 
*LOOKING AT THE TRAILING EDGE OF STP1 TO SEE IF ITS DOING 

j+THE INCREMENT ING 


;* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A’’ 


- 
3* 
. 
; 
fs RARARAAAAAHHAAHAAAAAAAAATAAA AAA AAAAAAAAAAAAEAAAAAAAAEREAAAEERS 
T 


000004 $1136: SCOPE 
3CLR CLK A, SET 'ST1 ENB COUNTER’. ;RATE:STP1. 
:CLR_COUNT + BUFFER REGS. 
GENERATE A MAINTENANCE S11. 
;THE LEADING EDGE SHOULD CAUSE 
NABL CNTR AY F/F TO SET. (CSR BIT 00). 
‘THE TRAILING EDGE SHOULD CLOCK 
;THE COUNTER ONCE. 
012737 000001 001354 MOV —- #BI TO, STMDAT 
i MOV - STMDAT,@ASR = ;/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
005037 001124 CLR = SGDDAT 
Fa MOV - SGDDAT,@ABR —S;/ PUT DATA FROM SGDDAT TO DEVICE REG ABR 
i MOV - @ASR,SGDDAT _—s ; /READ DEVICE REG ASR,PUT DATA IN SGDDAT. 
052737 010000 001124 BIS  - #BIT12, $GDDAT 
| i MOV SGDDAT,@ASR == ;/ PUT DATA FROM SGDDAT TO DEVICE REG ASR 
012737 000001 001124 MOV #1, SGDDAT ;SET S$/B FOR ERROR TYPEOUT IF NEEDED. 
;READ THE COUNT REGISTER. 
Fe MOV  @ACR,SBDDAT —s_; /READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
023737 001126 001124 CMP © $BDDAT, SGDDAT DD THE COUNT REG COUNT ONCE? 
001401 BEOti«é‘dS :BR IF YES TO NEXT TEST. 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<$SSSSS585S5555555S5555585 


104012 ERROR 12 3ST1 FAILED TO COUNT 
:CLOCK A'S oa REG. AFTER SETTING 
:"ENABL CNTR A* = SEE TEST HEADING 


“4SEQ 0131 
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18-AUG-80 09:15 1136 *TEST THAT THE TRAILING EDGE OF STP1 WILL INCR. COUNTER 
3 COMMENTS 


017352 





33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSS5S 


1$: 


SEQ 0132 
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017352 


017354 


017410 


017436 


017454 
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000004 


005037 


012737 
052737 


012700 


052737 


005737 
001002 


001354 


004000 


000405 


177766 


004000 


001126 


001354 


001354 


001354 
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6 *TEST THAT THE TRAILING EDGE OF STP1 WILL INCR. COUNTER 


FRRAAAAAAAAAAAAAERATAA AERA AE AAAAAAAAAAAAAAAAAAAEAAAAATAAAAAAAES 


*TEST CLOCK A'S 100KHZ DIVIDER 


IN THIS TEST WE’ 4 $ E If Hy eat DIVIDER WILL DIVIDE 1MHZ 
s<ey 10 TO wv US A KHZ C 


:#TEST 137 


*T0 DO THIS 


; PULSES THAT IN 


WE*LL DISABLE THE REGULAR 
TURN SHOULD DIVIDE BY TEN TO GIVE US ONE ” s00KHz 


“4MHZ_CLK PULSE A 


;*PULSES. 
T®THEN WE'LL GENERATE 9 MORE 1MHZ PULSES AND MAKE 
; #SURE THAT WE DON'T GET ANOTHER 100KHZ PULSE. 


i 


7137: SCOPE 
CLR 
3* MOV 
3* MOV 
x MOV 
MOV 
3* MOV 
* MOV 
BIS 
3* MOV 
MOV 
1$: 
3* MOV 
BIS 
3 MOV 
3* MOV 
TST 
BNE 


STMDAT 
STMDAT ,@BSR 
STMDAT ,@ASR 


STMDAT ,@ABR 
#B1T11,STMDAT 


STMDAT ,@BSR 


@ASR,STMDAT 
#401'4,$TMDAT 


STMDAT,@ASR 


#-10.,R0 


@ASR,STMDAT 
#B1T11,STMDAT 


STMDAT ,@ASR 
@ACR, SBDDAT 
SBODAT 


is PROBABLE SYNC POINT FOR THIS TEST:: 


eeneegunsecnsenquasaausanenesesensoneonsenzeumeeeseenieenennNnen 


“LD BUFF AT’ 


;/CLEAR CLOCK e 

:/CLEAR CLOCK 

:/CLEAR A'S surfer + _— REGS. 
;/DISABLE THE IMHZ O 

: /ENABLE CNTR, RATE: TO0KHZ :MODE. 


;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
:/ PUT DATA FROM STMDAT 10 DEVICE REG ASR 
;/ PUT DATA FROM STMDAT TO DEVICE REG ABR 


;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 


3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
3/SET TO GENERATE ON 1MHZ PULSES 


:/GENERATE 1 1MHZ PULSE 
;/HAS COUNTER ADVANCED ANY? 


;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 


;/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 


:/1F SO EXIT THIS LOOP. 
;/NOTE: WHEN WE DISABLED THE 1 MHZ. 


L 
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CRLPGC.P11 18-AUG-80 09:15 1137s ® TEST CLOCK A'S 100KHZ DIVIDER SEQ 0134 
(1) 7/0SC.,THE DIVIDER COULD HAVE 
(1) :/AND COUNT LEFT IN IT. 
(1) S/AFTER THIS LOOP ,WE SHOULD BE SUNK. 
(1) 0175246 005200 INC RO :/DONE 10. 1MHZ PULSES? 
1) 017526 001354 BNE 1$ [/1F NOT = DO ANOTHER. 

d : 
(1) 017530 012737 000001 001124 108: MOV #1, SGDDAT :/SET FOR ERROR TYPEOUT IF NEEDED. 
3 ;/READ THE COUNTER. 
oF 3* MOV @ACR, SBDDAT :/READ DEVICE REG ACR.PUT DATA IN SBDDAT. 
(1) 017546 023737 007126 001124 CMP SBDDAT , SGDDAT svete THE COUNTER ADVANCE ONCE? 

} 017554 001402 BEQ 2$ /IF YES = NEXT CHECK. 
5 :$$$$S$SSSSSSSSSS$$S$SS$SS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 017556 104012 ERROR 12 s/ERROR = CLOCK A = 100KHZ - PULSE 
3H :/NOT GENERATED WHEN 10 1MHZ PULSES 
11 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 017560 000430 BR 4$ 
(1) 017562 012700 000011 28: MOV #9.,R0 ;/GET THE NUMBER OF ‘1 MHZ" H PULSES 
st 017566 3$: :/GENERATE 9 1MHZ PULSES 
(2) jt MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN S$TMDAT. 
St 017576 052737 004000 001354 BIS #B1T11,STMDAT 
(2) 7¢ MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) 017614 005300 DEC RO ;/ INORDER TO CHECK TO SEE THAT 
a) 017616 001363 BNE 3$ :/WE DON'T GENERATE ANOTHER 100KHZ PULSE. 
(1) :/READ THE COUNTER 
(2) ;* MOV @ACR,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 017630 023737 001126 001124 CMP SBDDAT,SGDDAT —:/WAS ANOTHER 100KHZ PULSE GENERATED? 
Cy 017636 001401 BEQ 4$ :/NO-GO TO NEXT TEST! 
(2) 
11 :$$S$$SSSSSSSSSSSSSSSSS$$S$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 017640 104012 ERROR 12 : /ERROR CLOCK A WE SEEM TO HAVE 
(1) ;AGENERATED A SECOND 1OOKHZ PULSE 
(y) :/ON ONLY 9 1MHZ PULSE 
1 :$$$$S$$$SSSSSSSSS$SSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 017642 4$: 
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/CRLPGC.P11 18-AUG-80 09:15 *TEST CLOCK A'S 100KHZ DIVIDER SEQ 0135 | 
} 
sii i 
(5) seeereneteeenegererereretererteneeneeeeeeeereneneaeereneaKeneees 
(6) ; TEST 140 eTEST CLOCK A'S 10KHZ DIVIDER | 
(5) IN THIS TEST WE'LL SEE IF We 1OKHZ DIVIDER WILL DIVIDE 100KHZ 
(5) :+BY 10 TO GIVE US A 10KHZ CLK PULSE 
(5) :*T0 DO THIS, WE'LL DISABLE THE “REGUL 1MHZ CLK PULSE AND 
(3) eet THAT IN TURN SHOULD DIVIDE i TEN TO GIVE US ONE 10KHZ 
(5) S*THEN WE'LL GENERATE 9 MORE 100KHZ PULSES AND MAKE 
+h 3 # SURE THAT WE DON'T GET ANOTHER 10KHZ PULSE. 
(6) fe 
+ ¢ :* PROBABLE SYNC POINT FOR THIS TEST:: “LD BUFF AT’ 
*® 
(4) + Peeeeeeeneeneeeereereeeeeeeereeeeeeeeereneeeeneneaeeeenerereent 
(3) 017642 000004 TST140: SCOPE 
(1) :/CLEAR CLOCK 8B. 
(1) :/CLEAR CLOCK A, 
(1) :/CLEAR A'S BUFFER + COUNT REGS. 
(1) :/DISABLE THE 1MHZ OSC. 
(1) ‘/ENABLE CNTR, RATE: 10KHZ ;MODE. 
cy} 017644 005037 001354 CLR STMDAT 
(2) 3 MOV STMDAT, a@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(2) * MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) ie MOV STMDAT, @ABR :/ PUT DATA FROM STMDAT TO DEVICE REG ABR 
a 017700 012737 004000 MOV #B1T11,STMDAT 
ri ;* MOV STMDAT, aBSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(2) jt MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
cD 017726 052737 000407 BIS #40116, STMDAT 
(3) it MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) :/SET TO GENERATE ON 1MHZ PULSES 
(1) 017744 012700 177634 MOV #-100.,RO 
(1) 017750 1$: :/GENERATE 1 1MHZ PULSE 
( :/HAS COUNTER ADVANCED ANY? 
(2) o* MOV @ASR,STMDAT s/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
C3) 017760 052737 004000 BIS #B1T11,S$TMDAT 
(2) st MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) je MOV @ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 020006 005737 001126 TST SBDDAT 
(1) 020012 001002 BNE :/1F SO EXIT THIS LOOP. 
(1) ‘/NOTE: WHEN WE DISABLED THE 1 MHZ. 
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CRLPGC.P11 18-AUG-80 09:15 7140 *TEST CLOCK A'S 10KHZ DIVIDER SEQ 0136 
(1) 3/0SC., THE DIVIDER COULD HAVE 
(1) :/AND COUNT LEFT IN IT. 
(1) :/AFTER THIS LOOP ,WE SHOULD BE SUNK. 
(1) 020014 oof gee INC RO + /DONE 100. 1MHZ PULSES? 
$12 020016 001354 BNE 1$ :/1F NOT = DO ANOTHER. 
$3} 020020 012737 000001 001124 10S: MOV #1, SGDDAT :/SET FOR ERROR TYPEOUT IF NEEDED. 
3h ;/READ THE COUNTER. 
¢ 3* MOV @ACR,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 020036 023737 001126 001124 CMP SBODAT,SGDDAT  ;/DID THE COUNTER ADVANCE ONCE? 
3h 020044 001402 BEQ 2s :/1F YES = NEXT CHECK. 
12 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020046 104012 ERROR 12 ;/ERROR = CLOCK A = 10KHZ = PULSE 
Hh :/NOT GENERATED WHEN 10 100KHZ PULSES 
11 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020050 000430 BR 4$ 
Hh 020052 012700 000143 28: MOV #99.,R0 ;/GET THE NUMBER OF ‘1 MHZ° H PULSES 
HH 020056 3$: :/GENERATE 9 100KHZ PULSES 
(2) i* MOV @ASR,STMDAT s/READ DEVICE REG ASR. PUT DATA IN STMDAT. 
th 020066 052737 004000 001354 BIS #B1T11,STMDAT 
(2) i* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT 10, DEVICE REG ASR 
(1) 020104 005300 DEC RO /INORDER TO CHECK TO SEE T 
HH 020106 001363 BNE 3$ WE DON'T GENERATE ANOTHER. TOKH2 PULSE. 
i) ;/READ THE COUNTER 
(2) 3* MOV @ACR,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1) 020120 023737 001126 001124 CMP SBDDAT,SGDDAT  ;/WAS ANOTHER 10KHZ PULSE GENERATED? 
Hh 020126 001401 BEQ 4$ :/NO-GO TO NEXT TEST! 
(2) 
11 2$$SSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020130 104012 ERROR 12 :/ERROR CLOCK A WE SEEM TO HAVE 
(1) :/GENERATED A SECOND 10KHZ PULSE 
+t :/ON ONLY 9 100KHZ PULSES. 
11 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020132 4$: 
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020216 
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000004 


005037 001354 


012737 004000 
052737 000411 


012700 176030 


052737 004000 


005737 001126 
001002 
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T*TEST 141 *TEST CLOCK A'S 1KHZ DIVIDER 
* 


:+IN THIS TEST WE'LL SEE_IF THE 1KHZ DIVIDER WILL DIVIDE 10KHZ 
;+BY 10 TO GIVE US A 1KHZ CLK L PULSE. 
;*T0 DO its ey DISABLE THE REGULAR 1MHZ CLK PULSE AND 


;*PULSES THA 
oP 


TURN SHOULD DIVIDE BY TEN TO GIVE US ONE 1KHZ 


;*PULSES. 
s*THEN WE'LL GENERATE 9 MORE 10KHZ PULSES AND MAKE 


;* 
. 
o 

® 


001354 


001354 


001354 


;*SURE THAT WE DON'T GET ANOTHER 1KHZ PULSE. 


-* 
:* PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF A’’ 


RAERAARAAAAAEARAEAARAAAAARAAEAAAAAEAAAAAAAAAAAAAAAARAAAAAARAAAAHAAAEE 


TST14 


1: SCOPE 
3/CLEAR CLOCK B. 
3/CLEAR CLOCK A. 
:/CLEAR A'S BUFFER + COUNT REGS. 
:/DISABLE THE 1MHZ OSC. 
;/ENABLE CNTR, RATE: 1KHZ ;MODE. 
CLR STMDAT 
MOV STMDAT,aBSR 3/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
MOV STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
MOV STMDAT,@ABR :/ PUT DATA FROM STMDAT TO DEVICE REG ABR 
MOV #B1T11,STMDAT 
MOV STMDAT,@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
BIS #401!'10,STMDAT 
MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASP. 
:/SET TO GENERATE ON 1MHZ PULSES 
MOV #-1000.,R0 
:/GENERATE 1 1MHZ PULSE 


:/HAS COUNTER ADVANCED ANY? 


MOV ASR, STMDAT :/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
BIS #B1T11,STMDAT 


MOV STMDAT ,@ASR ;/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
MOV @ACR ,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
SBODAT 


BNE 10% :/1F SO EXIT THIS LOOP. 
7/NOTE: WHEN WE DISABLED THE 1 MHZ. 


| 
| 
SEQ 0137 
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‘CRLPGC.P11 =: 18=AUG-80 09:15 1141 * TEST CLOCK Pi ¢ 1KHZ DIVIDER 
| (1) 3/0SC.,THE DIVIDER COULD HAVE 
| (1) 3/AND COUNT 
(1) i/AFTER THIS” COOP WE SHOULD BE SUNK. 
/ 020304 005200 INC RO DONE 1000. 1MHZ PULSES? 
(1) 020306 001354 BNE 1$ at: NOT = DO ANOTHER. 
(v) 020310 012737 000001 001124 10$: Mov #1, SGDDAT ;/SET FOR ERROR TYPEOUT IF NEEDED. 
(3) ;/READ THE COUNTER. 
te 3* MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1) 020326 023737 001126 001124 CMP SBDDAT,S$GDDAT  ;/DID THE COUNTER ADVANCE ONCE? 
() 020334 001402 BEQ 2$ :/IF YES - NEXT CHECK. 
5 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020336 104012 ERROR 12 ;/ERROR - CLOCK A - 1KHZ = PULSE 
1) :/NOT GENERATED WHEN 10 10KH2 PULSES 
5: SSSSSSSSSSSSSSSSSSSSS5SSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020340 000430 BR 4$ 
(1) 020342 012700 001747 2s: MOV #999. RO :/GET THE NUMBER OF '1 MHZ" H PULSES 
CM) 020346 3$: ;/GENERATE 9 10KHZ PULSES 
(2) 3 MOV @ASR,STMDAT -;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
a) 020356 052737 004000 001354 BIS #B1T11,$TMDAT 
(2) :* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) 020374 005300 DEC RO ;/INORDER TO CHECK TO SEE THAT 
Hi 020376 001363 BNE 3$ + /WE DON'T GENERATE ANOTHER 1KHZ PULSE. 
() ;/READ THE COUNTER 
(2) 36 MOV @ACR,SBDDAT ;/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 020410 023737 001126 001124 CMP SBDDAT,S$GDDAT :/WAS ANOTHER 1KHZ PULSE GENERATED? 
(1) 020416 001401 BEQ 4$ :/NO-GO TO NEXT TEST 
(2) 
ss: $$$$$S$SSSSSSSSS$SS$SS$SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020420 104012 ERROR 12 s/ERROR CLOCK A WE SEEM TO HAVE 
(1) :/GENERATED A SECOND 1KHZ PULSE 
() ;/0N ONLY 9 10KHZ PULSES. 


(1) 020422 


37 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSS55 
4$: 


SEQ 0138 





MACY11 306(1063) 


24-OCT-80" 9: 38 PAGE 3-118 


Spee SE 
[LPAcKWT aK DIAGNOSTIC MD-11-CRLPG-C 


CRLPGC.P11 —- 18-AUG-B0 09:15 Tiel ®TEST CLOCK A'S IKHZ DIVIDER SEQ 0139 
sh 2 

(5) seeaeeeeeeeeeeeteteeeerereeereeereeegeekereneeeeeneegeereeereeee 

(4) : TEST 142 TEST CLOCK A'S 100HZ DIVIDER 

(5) T+IN THIS TEST WE'LL SEE IF THE 10QHZ DIVIDER WILL DIVIDE 1KHZ 

(5) :BY 10 TO GIVE US A 100HZ CLK 

(5) i370 DO THIS, WE'LL DISABLE THE” REGULAR 1MHZ CLK PULSE AND 

(3) isPULSES THAT IN TURN SHOULD DIVIDE BY TEN TO GIVE US ONE 100HZ 
*? 

(5) T*THEN WE'LL GENERATE 9 MORE 1KHZ PULSES AND MAKE 

(3) Z*SURE THAT WE DON'T GET ANOTHER 100HZ PULSE. 
® 

(6) 


;* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A” 
-* 


8 
hd 
° 
e 
(4) sURARAAAAAAARAKAAAAKAA AAA ALAA AAA AAAAKK AAA AAAAAA AAA AAAAHAATTTTS 
T 


(3) 020422 000004 $1142: SCOPE 





(1) 

1) 3/CLEAR CLOCK .. 

(1) :/CLEAR CLOCK 

(1) [/CLEAR A'S BUFFER + COUNT REGS. 

(1) :/DISABLE THE 1MHZ 

NS :/ENABLE CNTR, RATE: 100HZ ;:MODE. 

(3) 020424 005037 001354 CLR STMDAT 

is MOV STMDAT,aBSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
is) MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) MOV STMDAT,@ABR :/ PUT DATA FROM STMDAT TO DEVICE REG ABR 
1) 020460 012737 004000 001354 MOV #B1T11,STMDAT 

AH MOV STMDAT,@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(2) MOV @ASR -STMDAT :/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
Hh 020506 052737 000413 001354 BIS #401!12,STMDAT 

eH MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) :/SET TO GENERATE ON 1MHZ PULSES 

Hi 020524 012700 154360 MOV #-10000. ,RO 

(1) 020530 :/GENERATE 1 1MHZ PULS 

ah :/HAS COUNTER NUANCED. ANY? 

(2) MOV @ASR, STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
(3) 020540 052737 004000 001354 BIS #Bitil, STMDAT 

= MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) MOV @ACR,SBODAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 020566 005737 001126 TST SBDDAT 

(1) 020572 001002 BNE /1F SO EXIT THIS LOOP. 

(1) NOTE: WHEN WE DISABLED THE 1 MHZ. 
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CRLPGC.P11  18-AUG-80 09:15 1142 *TEST CLOCK A'S 100HZ DIVIDER SEQ 0140 
(1) :/0SC. THE DIVIDER COULD HAVE 
(1) ;/AND COUNT LEFT IN IT. 
(1) i/APTER THIS LOOP ,WE SHOULD BE SUNK. 
(1) 020574 005200 INC RO /DONE 10000. 1MHZ PULSES? 
(1) 020576 001354 BNE 1$ “VIF NOT = DO ANOTHER. 
(1) 020600 012737 000001 001124 10$: . Mov #1, $GDDAT ;/SET FOR ERROR TYPEOUT IF NEEDED. 
cy} :/READ THE COUNTER. 
(2) a MOV @ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
(1) 020616 023737 001126 001124 CMP SBDDAT,SGDDAT ;/DID THE COUNTER ADVANCE ONCE? 
1) 020624 001402 BEQ 2$ S/1F YES - NEXT CHECK. 
55 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020626 104012 ERROR 12 ;/ERROR = CLOCK A = 100HZ - PULSE 
(1) :/NOT GENERATED WHEN 10 1KHZ PULSES 
3s  SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020630 000430 BR 4$ 
(1) 020632 012700 023417 2$: MOV #9999. ,RO :/GET THE NUMBER OF ‘1 MHZ" H PULSES 
(1) 020636 3$: :/GENERATE 9 1KHZ PULSES 
Se le MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
ct) 020646 052737 004000 001354 BIS #81111, S$TMDAT 
(2) 3% MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) 020664 005300 DEC RO ;/ INORDER TO CHECK TO SEE THAT 
(1) 020666 001363 BNE 3$ +/WE DON'T GENERATE ANOTHER 100HZ PULSE. 
() ;/READ THE COUNTER 
(2) 3* MOV @ACR, SBDDAT :/READ DEVICE REG ACR,PUT DATA IN SBDDAT. 
(1) 020700 023737 001126 001124 CMP SBDDAT,$GDDAT :/WAS ANOTHER 100HZ PULSE GENERATED? 
(1) 020706 001401 BEQ 4$ :/NO-GO TO NEXT TEST! 
(2) 
3 5: $$SS$SSSSSSSSSSSSSSSESSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020710 104012 ERROR 12 ;/ERROR CLOCK A WE SEEM TO HAVE 
(1) :/GENERATED A SECOND 100HZ PULSE 
(1) :/0N ONLY 9 1KH2Z PULSES. 
55 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 020712 4$: 
3262 
3361 
3362 
(5) 22 RAR AAAAAAAEAATAAATAAAAAKERAAAAAARAARAAARAARAARAARAAAEKARAEATAAAAAEAREE 
(4) ; #TEST 143 *TEST CLOCK B'S 100KHZ DIVIDER 








a Ce a en 
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RLPGC.P11  18-AUG-80 09:15 1143 ® TEST CLOCK B'S 100KHZ DIVIDER SEQ 0141 
(5) s+IN THIS TEST we! UL ; E IF THE 100HZ DIVIDER WILL DIVIDE 1KHZ 
(5) [+BY 10 TO GIVE US A 1002 CLK 
(5) :+T0 DO tus WE'LL DISAME THE REGULAR 1MHZ CLK PULSE AND 
(3) :*PULSES THAT IN TURN SHOULD DIVIDE BY TEN TO GIVE US ONE 100HZ 
(5) :* THEN WELL GENERATE 9 MORE 1KHZ PULSES AND MAKE 
(3) ; #SURE THAT WE DON'T GET ANOTHER 100HZ PULSE. 
(6) ce 
4 :* PROBABLE SYNC POINT FOR THIS TEST:: ‘LD BUFF AT’ 
*® 
(4) +: RAERRAARAAAAAAAAAEAAAEAEAEKAAAAARAAAAAAAAAAARARARARARARAERAAAEHARAAERE 
(3) 020712 000004 TS1143: SCOPE 
(1) :/CLEAR CLOCK 8. 
(1) :/CLEAR CLOCK A. 
(1) :/CLEAR B'S BUFFER + COUNT REGS. 
(1) i/DISABLE THE 1MHZ OSC. 
(1) :/RATE: 100KHZ 
(1) :/ENABLE CLOCK B. 
(1) 020714 005037 001354 CLR STMDAT 
(2) * MOV STMDAT, @BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(2) it MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) * MOV STMDAT, aBBR :/ PUT DATA FROM $TMDAT TO DEVICE REG BBR 
(1) 020750 012737 004040 001354 MOV #B1T11' BITS, STMDAT 
(2) sf MOV STMDAT, @BSR :/ PUT DATA FROM $TMDAT TO DEVICE REG BSR 
(2) ze MOV @BSR,STMDAT :/READ DEVICE REG BSR,PUT DATA IN STMDAT. 
(1) 020776 052737 000004 001354 BIS #4, STMDAT 
(2) 3* MOV STMDAT,@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
1) 021014 005237 001354 INC STMDAT 
(2) :a MOV STMDAT, aBSR :/ PUT DATA FROM S$TMDAT TO DEVICE REG BSR 
(1) 021030 012700 177766 MOV #-10.,RO :/SET TO GENERATE 10. 1MHZ PULSES 
(1) 021034 1$: :/GENERATE 1 1MHZ PULSE 
(1) :/HAS THE COUNTER ADVANCED? 
(2) * MOV @ASR, STMDAT s/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
(1) 021044 052737 004000 001354 BIS #BIT11,S$TMDAT 
(2) it MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) ;t MOV @BCR, SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021072 005737 001126 TST SBDDAT 
(1) 021076 001002 BNE 10$ s/EXIT LOOP IF SO. 
(1) :/NOTE: WHEN ve DISABLED THE 1 MHZ. 
(1) i/ OSC., THE DIVIDER COULD HAVE 
(1) :/ HAD ANY COUNT IN I 
(1) :/AFTER THIS LOOP, WE SHOULD BE SUNK. 
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CRLPGC.P11 18-AUG-80 09:15 7143 *TEST CLOCK B'S 100KHZ DIVIDER SEQ 0142 
(1) 
(1) 021100 005200 , INC RO :/DONE 10. 1MHZ PULSES? 
1 021102 001354 BNE 18 :/1F NOT = DO ANOTHER. 
a1} 021104 012737 000001 001124 10S: MOV #1, SGDDAT ;/SET FOR ERROR TYPEOUT IF NEEDED. 
cy} ;/READ THE COUNTER 
t¢) 3* MOV ABCR,SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021122 023737 001126 001124 CMP SBDDAT,SGDDAT 7040 THE COUNTER ADVANCE ONCE? 
3 021130 001402 BEQ 2$ :/IF YES = NEXT CHECK 
rr SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 021132 104015 ERROR 15 7/ERROR = CLOCK B - 100KHZ - PULSE 
(1) :/NOT GENERATED WHEN 10 1MHZ PULSE 
(a) S/WERE GENERATED. 
1 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
Cy 021134 000430 BR 4$ 
(1) 021136 012700 177767. 28: MOV #-9.,R0 ;/GET THE NUMBER OF ‘1 MHZ‘ H PULSES 
(1) :/NEED TO GIVE 9 1MHZ PULSES 
AH 021142 3$: 
(2) 3* MOV @ASR,STMDAT :/READ DEVICE REG ASR,PUT DATA IN S$TMDAT. 
$}? 021152 052737 004000 001354 BIS #B1T11,S$TMDAT . 
(2) 3 MOV STMDAT,@ASR :/ PUT DATA FROM $TMDAT TO DEVICE REG ASR 
(1) 021170 005200 INC RO :/IN ORDER TO CHECK TO SEE THAT 
Hi 021172 001363 BNE 3$ :/WE DON'T GENERATE ANOTHER 100KHZ PULSE 
(2) 
(2) 3* MOV @BCR,SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021204 023737 001126 001124 CMP SBDDAT,$GDDAT :/WAS ANOTHER 100KHZ PULSE GENERATED? 
Hh 021212 001401 Bea. 4$ :/NO - GO TO NEXT CHECK. 
(2) 


32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 021214 104015 ERROR 15 s/ERROR CLUCK B WE SEEM TO HAVE 
(1) :/GENERATED A SECOND 100KHZ PULSE 
et} :/0N ONLY 9 1MHZ PULSES. 
33 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

3843 021216 4$: 
(5) peteeeeraeeeeerereeetererereretereneeeeeerereeeereeeererererere 
3? :ATEST 144 *TEST CLOCK B'S 10KHZ DIVIDER 
(5) +N THIS TEST WE*LL SEE IF a 100HZ DIVIDER WILL DIVIDE 1KHZ 
(5) :+BY 10 TO GIVE US A 100HZ C 
(5) +70 DO THIS, WE'LL DISABLE. THe REGULAR 1MHZ CLK PULSE AND 





a a a a ee 
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CRLPGC.P11 18-AUG-80 09:15 T144 *TEST CLOCK B'S 10KHZ DIVIDER SEQ 0143 


; #PULSES THAT IN TURN SHOULD DIVIDE BY TEN TO GIVE US ONE 100HZ 





~ 
wn 
~ 


(5) LSES. 

(5) + THEN WE'LL GENERATE 9 MORE 1KHZ PULSES AND MAKE 

(3) ;#SURE THAT WE DON'T GET ANOTHER 100HZ PULSE. 

(6) ce 

(6) ;* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A” 

(4) r RAAAAEAARAERAAARAEKAAAAAAEAAAAAAAAAAARAAARARAAARAAAAAAAAARAAAAAAAAAERE 

(3) 021216 000004 i$T144: SCOPE 

(1) s/CLEAR CLOCK 8. 

1) s/CLEAR CLOCK A. 

(1) :/CLEAR B'S BUFFER + COUNT REGS. 

(1) :/DISABLE THE 1MHZ OSC. 

(1) S/RATE: 10KHZ 

(1) :/ENABLE CLOCK B. 

1) 021220 005037 001354 CLR STMDAT 

(2) 3* MOV STMDAT, @BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
s; 3* MOV STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) :H MOV STMDAT, @BBR :/ PUT DATA FROM STMDAT TO DEVICE REG BBR 
(3) 021254 012737 004040 001354 MOV #B1T11'BITS,STMDAT 

cs) 3* MOV STMDAT, @BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(2) 3* MOV @BSR,STMDAT ;/READ DEVICE REG BSR,PUT DATA IN STMDAT. 
(1) 021302 052737 000006 001354 BIS #6, STMDAT 

(2) * MOV STMDAT, aBSR :/ PUT DATA FROM $TMDAT TO DEVICE REG BSR 
(a) 021320 005237 001354 INC STMDAT 

(2) * MOV STMDAT ,@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(1) 021334 012700 177634 MOV #-100. RO :/SET TO GENERATE 100. 1MHZ PULSES 

(1) 021340 1$: s/GENERATE 1 1MHZ PULSE 

() :/HAS THE COUNTER ADVANCED? 

(2) * MOV @ASR, STMDAT s/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
(1) 021350 052737 004000 001354 BIS #B1T11,S$TMDAT 

(2) 3t MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) 8 MOV @BCR, SBDDAT :/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021376 005737 001126 TST SBODAT 

(1) 021402 001002 BNE 10$ :/EXIT LOOP IF SO. 

(1) S/NOTE: WHEN WE DISABLED THE 1 MHZ. 

(1) :/ OSC. THE DIVIDER COULD HAVE 

(1) :/ HAD ANY COUNT IN 

() /AFTER THIS LOOP, WE SHOULD BE SUNK. 

(1) 021406 005200 INC RO :/DONE 190. MHZ PULSES? 

(1) 021406 001354 BNE 1$ */1F NOT = DO ANOTHER, 
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33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
WE SEEM TO HAVE 


RLPGC.P11 18-AUG-80 09:15 *TEST CLOCK B'S 10KHZ DIVIDER SEQ 0144 
1 , 
a3 021410 012737 000001 001124 10$: MOV #1, SGDDAT 3/SET FOR ERROR TYPEOUT IF NEEDED. 
(3) ;/READ THE COUNTER 
of} 3* MOV @BCR,SBDDAT 3;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021426 023737 001126 001124 CMP SBDDAT ,SGDDAT At THE COUNTER ADVANCE ONCE? 
{3} 0214 001402 BEQ 23 ;/1F YES = NEXT CHECK 
3s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1) 021436 104015 ERROR 15 ;/ERROR - CLOCK B = 10KHZ - PULSE 
(1) */NOT GENERATED WHEN 10 foOKH? PULSE 
3h :/WERE GENERATED. 
33 :SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS \ 
7 021440 000430 3R 4% 
(1) 021442 012700 177635 2$: MOV #-99.,RO 3/GET THE NUMBER OF °'l MHZ'’ H PULSES 
(1) : /NEED TO GIVE 9 100KHZ PULSES 
3 021446 3$: 
(2) 79 MOV @ASR ,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. | 
a3 021456 052737 004000 001354 BIS #B1T11,STMDAT 
(2) 3* MOV STMDAT,@ASR 3/ PUT DATA FROM S$TMDAT TO At REG ASR | 
(1) 021474 005200 INC RO IN ORDER TO CHECK TO SEE THAT 
3 021476 001363 BNE 3$ :/WE DON'T GENERATE ANOTHER 10KHZ PULSE 
(2) 
(2) it MOV @BCR,SBODAT ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. | 
(1) 021510 RLY 001126 001124 CMP SBDDAT ,SGDDAT + /WAS ANOTHER 10KHZ PULSE GENERATED? 
Mi 021516 001401 BEQ 4$ :/NO - GO TO NEXT CHECK. 
(2) | 
| 
(1) 021520 104015 ERROR 15 3;/ERROR CLOCK B 
(1) :/GENERATED A SECOND 10KHZ PULSE 
35 3/0N ONLY 9 100KHZ PULSES. 
57 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS | 
mH 021522 4$: | 
FRAAAAAAAAAAAAAAAATAAATAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAT AAS | 
j#TEST 145 *TEST CLOCK B'S 1KHZ DIVIDER 


IN THIS TEST WE “1 SEE IF ar 100HZ DIVIDER WILL DIVIDE 1KHZ 
7+BY 10 TO ove S A 100HZ CLK L 

#T0 DO THIS WE'EL DISABLE TH € REGULAR 1MHZ CLK PULSE AND 

; “PULSES THAT IN TURN SHOULD DIVIDE BY TEN TO GIVE US ONE 100HZ 


; *PULSES. 
T*THEN WE'LL GENERATE 9 MORE 1KHZ PULSES AND MAKE 
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CRLPGC.P11  18-AUG-80 09:15 1145 TEST CLOCK B'S 1KHZ DIVIDER SEQ 0145 ERI 
(5) ;*SURE THAT WE DON'T GET ANOTHER 100HZ PULSE. 
(6) ce 
(6) :® PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A 
*® 
(4) + eeeeeeteeneeeeenereederenerereenerenererereeeeeeeereneererenete 
(3) 021522 000004 1$1145: SCOPE 
(1) s/CLEAR CLOCK 6. 
() ‘/CLEAR CLOCK A. | 
(1) :/CLEAR B°S BUFFER + COUNT REGS. | 
(1) :/DISABLE THE 1MHZ OSC. | 
(1) :/RATE 1KHZ 
(1) ;/ENABLE CLOCK B. 
() 021524 005037 001354 CLR STMDAT 
(2) 3* MOV STMDAT, aBSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR | 
(2) ;* MOV STMDAT@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR | 
(2) 8 MOV STMDAT ,@BBR :/ PUT DATA FROM STMDAT TO DEVICE REG BBR 
(1) 021560 012737 004940 001354 MOV #B1T11'BITS,STMDAT 
(2) :* MOV STMDAT, @BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR | 
(2) :* MOV @BSR,STMDAT ;/READ DEVICE REG BSR,PUT DATA IN STMDAT. 
(1) 021606 052737 000010 001354 BIS #10, $TMDAT | 
(2) :* MOV STMDAT @BSR :/ PUT DATA FRO“ STMDAT TO DEVICE REG BSR 
3 ? 021624 005237 001354 INC STMDAT 
(2) * MOV STHOAT, aBsr :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
(1) 021640 012700 176030 MOV #-1000.,RO [/SET TO GENERATE 1000. 1MHZ PULSES 
(1) 021644 1$: :/GENERATE 1 1MHZ PULSE 
(1) :/HAS THE COUNTER ADVANCED? 
| 
(2) * MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. | 
a 021654 052737 004000 001354 BIS #BIT11,STMDAT 
(2) ? 3* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR | 
(2) 78 MOV @BCR,SBDDAT s/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021702 005737 001126 TST -  $BDDAT | 
(1) 021706 001002 BNE 10$ ;/EXIT LOOP IF SO. 
(1) : /NOTE : i WE DISABLED THE 1 MHZ. | 
(1) :/ THE DIVIDER COULD HAVE | 
(1) :/ 5 here COUNT IN IT. 
(1) S/AFTER THIS LOOP, WE SHOULD BE SUNK. 
(1) 021710 005200 INC RO :/DONE 1000. 1MHZ PULSES? 
1) 021712 001354 BNE 1$ :/1F NOT = DO ANOTHER. | 
(1) 021714 012737 000001 001124 10$: MOV #1, $GDDAT :/SET FOR ERROR TYPEOUT IF NEEDED. | 
| 
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CRLPGC.P11  18-AUG-80 09:15 1145 *TEST CLOCK B'S 1KHZ DIVIDER SEQ 0146 
(1) ;/READ THE COUNTER 
) 3* MOV @BCR, SBDDAT s/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
(1) 021732 023737 001126 001124 CMP SBDDAT, SGDDAT :/D1 THE COUNTER ADVANCE ONCE? 
) 021740 001402 BEQ 2$ /1F YES = NEXT CHECK 
5; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<$$S$S$S5S5S5S5SSSSSSSSSSS 
(1) 021742 104015 ERROR 15 ;/ERROR = CLOCK B - 1KHZ - PULS 
(1) :/NOT GENERATED WHEN 10 10KHZ PULSE 
a) [/WERE GENERATED. 
: ; SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
(1 021744 000430 BR 4$ 
(1) 021746 012700 176031 2s: mov #-999.,RO :/GET THE NUMBER OF ‘1 MHZ'' H PULSES 
(1) :/NEED TO GIVE 9 10KHZ PULSES 
1) 021752 38: 
(2) 3* MOV BASR STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
i) 021762 052737 004000 001354 BIS #BIT11,STMDAT 
(2) it MOV STMDAT,@ASR :/ PUT DATA FROM $TMDAT TO DEVICE REG ASR 
(1) 022000 005200 INC RO ;/1N ORDER TO CHECK TO SEE THA 
(1) 022002 001363 BNE 3$ :/WE DON'T GENERATE ANOTHER IKHZ PULSE 
(2) 
(2) ;* MOV @BCR,$BDDAT ;/READ DEVICE REG BCR,PUT DATA IN S$BDDAT. 
(1) 022014 023737 001126 001124 CMP SBDDAT,SGODAT :/WAS ANOTHER 1KHZ PULSE GENERATED? 
() 022022 001401 BEQ 4$ :/NO - GO TO NEXT CHECK. 
(2) 


33s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


(1) 022024 104015 ERROR 15 :/ERROR CLOCK B WE SEEM TO HAVE 
(1) :/GENERATED A SECOND 1KHZ PULSE 
He °/ON ONLY 9 10KHZ PULSES. 
; :{$$$$$$$SS$$SSS$SSSSS$SSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

3422 022026 4$: 
(5) FRRARAAAAAAAAAAAAAAAATAAAAATAATAAAAAAAAAAAAAAAAAAAAAARAAAARAAAAAT 
(4) : TEST 146 eTEST CLOCK B'S 100HZ DIVIDER 
(5) ‘SIN THIS TEST WE'LL SEE IF THE 1OOHZ DIVIDER WILL DIVIDE 1KHZ 
(5) :4BY 10 TO GIVE US A 1OOHZ CLK L PUL 
(5) #70 DO THIS, WE'LL DISABLE THECREGUCAR 1MHZ CLK PULSE AND 
(3) :sPULSES THAT IN TURN SHOULD DIVIDE BY TEN TO GIVE US ONE 100HZ 
(5) eTHEN WE'LL GENERATE 9 MORE 1KHZ PULSES AND MAKE 
(3) ; #SURE THAT WE DON'T GET ANOTHER 100H2Z PULSE. 
(6) ie 


oan DIAGNOSTIC MD-11-CRLPG-C 
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(6) 
(6) 
(4) 
(3) 


ee ee eee en a a a a tt ie it ee 
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Rr 


022026 


022030 


022064 


022112 
022130 
022144 


022150 


022160 


022206 
022212 


022214 
022216 


022220 
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060004 


005037 


012737 


052737 
005237 


012700 


052737 


005737 
001002 


005200 
001354 
012737 


001354 


004040 


000012 


001354 


154360 


004000 


001126 


000001 


om 306(1063) 24-0CT-80 E OS: 738 PAGE 3-126 
7146 *TEST CLOCK B'S 100HZ DIVIDER 


;* * PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF A” 


ceunguoeacosasennecessoneeeosqnenenongbesenesnenesennncenenoness 


igteees SCOPE 


CLR 
3* MOV 
3* MOV 
3* MOV 
001354 MOV 
3* MOV 
3@ MOV 
001354 BIS 
3* MOV 
INC 
3* MOV 
MOV 
1$: 
3% MOV 
001354 BIS 
3* MOV 
3* MOV 
TST 
BNE 
INC 
BNE 


001124 10$: MOV 


;/CLEAR CLOCK 6B. 
;/CLEAR CLOCK A. 


;/CLEAR B'S BUFFER + COUNT REGS. 
i/ DISABLE THE 1MHZ OSC. 

;/RATE: 100HZ 

;/ENABLE CLOCK B. 


STMDAT 
STMDAT,@BSR 3/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
STMDAT ,@ASR ;/ PUT DATA FROM STMDAT TO DEVICE REG ASR 


STMDAT ,@BBR ;/ PUT DATA FROM STMDAT TO DEVICE REG BBR 
#B1T11'BIT5, STMDAT 


STMDAT ,@BSR ;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 


@BSR,STMDAT :/READ DEVICE REG BSR,PUT DATA IN STMDAT. 
#12, STMDAT 


STMDAT, @BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
STMDAT 

STMDAT, a@BSR :/ PUT DATA FROM S$TMDAT TO DEVICE REG BSR 
#-10000. ,RO [/SET TO GENERATE 10000. 1MHZ PULSES 


:/GENERATE 1 1MHZ PULSE 
3/HAS THE COUNTER ADVANCED? 


@ASR, STMDAT :/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
#B1T11,S$TMDAT 


STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
arse seneee ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 
:/EXIT LOOP IF SO. 
;/NOTE: WHEN WE DISABLED THE 1 MHZ. 
i/ OSC., THE DIVIDER COULD HAVE 
3/ HAD ANY COUNT IN IT. 
:/AFTER THIS LOOP, WE SHOULD BE SUNK. 


RO ;/DONE 10000. 1MHZ PULSES? 
1$ :/1F NOT - DO ANOTHER. 


#1, SGDDAT :/SET FOR ERROR TYPEOUT IF NEEDED. 
;/READ THE COUNTER 
@BCR,$BODAT ;/READ DEVICE REG BCR,PUT DATA IN SBDDAT. 


SEQ 0147 


Lf 


-—_——-—— 
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‘CRLPGC.P11- 18-AUG-B0 09:15 1146 ®TEST CLOCK B'S 100HZ DIVIDER 
a 
| (1) 022236 023737 001126 001124 CHP" $BDDAT.SGDOAT —:/DID THE COUNTER ADVANCE ONCE? 
) 022244 001402 BEQ 2$ ‘/IF YES + NEXT CHECK 
+: :$$$$$$$$$$$$$$$$$$$$SS5SS>> ERROR <<SSSSSSSSSSSSSSSSSSSSS5SSS 
(1) 022246 104015 ERROR 15 :/ERROR = CLOCK B - 100HZ - PULSE 
(1) + /NOT GENERATED WHEN 10 1KHZ PULSE 
) ‘/WERE GENERATED. 
: ::$$$$$$$$$$$$$$$$$$$$$$S$S>> ERROR <<$$$$$SSSS5S5SSS5SSSSSSSSS 
(1) 022250 000430 BR 4$ 
(1) 022252 012700 154361 2$: Mov —s- #=9999. RO :/GET THE NUMBER OF ''l MHZ‘ H PULSES 
(1) + /NEED TO GIVE 9 1KHZ PULSES 
a) 022256 3$: 
(2) 3* MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
it 022266 052737 004000 001354 BIS #BIT11, STMDAT 
(2) 3* MOV STMDAT,@ASR :/ PUT DATA FROM |~y TO A REG ASR 
(1) 022304 005200 INC RO /1N ORDER TO CHECK TO SEE THAT 
(1) 022306 001363 BNE 3$ ‘/WE DON'T GENERATE ANOTHER 100HZ PULSE 
(2) 
(2) 38 MOV aBCR,$BDDAT ;/READ DEVICE REG BCR,PUT DATA IN S$BDDAT. 
(1) 022320 023737 001126 001124 CMP SBODAT,SGDDAT :/MAS ANOTHER 100HZ PULSE GENERATED? 
HH 022326 001401 BEQ 4$ /NO - GO TO NEXT CHECK. 
(2) 


022330 


(1) 022332 


Fe ee ee he ee ee et ce hd 
et eI) et et oe os ot 2 
ee ee ee ee ee ee ee ee ee ee 


37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

104015 ERROR 15 :/ERROR CLOCK B WE SEEM TO HAVE 
:/GENERATED A SECOND 100HZ PULSE 
:/0N ONLY 9 1KHZ PULSES. 

37s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSS955555 


4$: 


-SBTTL 
-SBTTL END OF PASS ROUTINE 


pa cecme anya regain eee ta taeda betaine 
 SINCREMENT THE PASS NUMBER (S$PASS) 

S®TYPE "END PASS @#XXXXX"" win XXXXX 1S A DECIMAL NUMBER) 

T*1F THERES A sy GO TO IT 

:e1F THERE ISN'T JUMP TO LOOP 


SEOP: 


000240 NOP 
005037 001102 CLR STSTNM 3;ZERO THE TEST NUMBER 
005237 001206 INC SPASS 7: INCREMENT THE PASS NUMBER 


SEQ 0148 


: 
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042737 100000 001206 


~ 
_—) 
~ 
oS: a 
wo 
ews 


NSEEES 
sse 


104401 022433 
001206 


COSCO SOCOOOCOCO 
S 
ar 
4 
= 
°o 
— 


MrrPN—rrnrrrnnr 
er oe oe a acopiotcotten 


233 
2 


022430 
000042 


377 000 
042412 042116 
022440 050040 051501 020123 
022446 000043 


bt Re Sd ee 
on ee er ee a a ee ee ee ee ee ee ee ee a ee ee ee es es ee ee 

Oo 

™~™ 

~m 

= 

= 

= 

~N 

= 

So 


NOR 


3 
53 


3441 


FESESE ~~ 
PAD NADA a ot 
OunFunerw 


MACY11 396(1063) © etectten 6 is 738 PAGE 3-128 
END OF PASS ROUTIN 


BIC #100000,SPASS ;;DON'T ALLOW A NEG. NUMBER 


DEC (PC)+ :: LOOP? 

SEOPCT: .WORD 1 
BGT SDOAGN YES 
MOV (PC)+,a(PC)*+  ;;RESTORE COUNTER 

SENDCT: .WORD 1 
SEOPCT 
TYPE SENDMG s:TYPE “END PASS #” P 
MOV $PASS,-(SP) 33SAVE SPASS FOR TYPEOUT 
TYPDS £360 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE  ,$ENULL YPE A NULL CHARACTER 


$GET42: MOV #42 ,,RO 33 
SDOAGN ; ;BRANC 


BEQ H IF NO MONITOR 

RESET 7:CLEAR THE WORLD 
SENDAD: JSR PC, (RO) +260 TO MONITOR 

NOP ;SAVE ROOM 

NOP +: FO 

NOP 3zACT11 
SDOAGN: 

JMP a(PCc)+ 3 ;RETURN 


SRTNAD: .WORD LOOP 
SENULL: .BYTE -1,-1,0 :sNULL CHARACTER STRING 
SENDMG: .ASCIZ <15><12>/END PASS #/ 


® 
-SBTTL * SPECIAL 1/0 SIGNAL TESTS 
* 


-SBTTL "STP2 OUT’ TO ‘SCHMITT TRIG 1 IN’ TESTS 

THIS IS A SPECIAL SECTION DEVOTED FOR TESTING AND 
PROVIDING SCOPE LOOP  maseihecs FOR ‘’STP2 OUT’’ L 
AND “SCHMITT TRIG 1°° IN 


WHEN YOU LOAD AND START AT LOCATION 21 

CONTROL IS TRANSFERRED HERE. ‘'STP2 OUT’ L PULSES ARE 

Set f BY ‘LO STAT A HI*’ H + ‘BD10" H CHAIN -_STP2). 

PIN V_('STP2 OUT") 8, WIRED TO PIN LL cScHITT “TRIGI) FOR ry 
THIS test. "“STP2 OUT’ PULSES ARE RECEIVED AS ‘'SCHMITT TRIG 1 
PULSES WHICH SET CLOCK A’S STATUS REGISTER BIT 15. 

IF AN ERROR IS DETECTED, NORMAL ERROR REPORTING TECHNIC. 

AND ERROR SWITCH REGISTER OPTIONS ARE USED. 

AN ‘'s'' IS TYPED AFTER EACH 65,324 LOOPS THROUGH THE 

TEST. SW13=1 WILL INHIBIT THIS FEATURE. 


3* 
7* PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT B” 
3% 


Be Se Se Se Se Se Be Ge Se Se Se Sete Sete 
eaeneneneneneneenneennnen 


:* 
;* YOU MUST WIRE PINS V AND LL OF J1 TOGETHER AND INSTALL JUMPER wi 
is LOGIC TEST (L + S$ 200) SHOULD BE RUN FIRST. 


SEQ 0149 


pees _ 
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CRLPGC.P11 18-AUG-80 09:15 TP2 OUT’ TO “SCHMITT TRIG 1 IN’’ TESTS SEQ 0150 
og 24 022450 005037 001664 L$210: CLR -DVLS 
(1) 022454 005037 001104 1$: CLR SICNT :/CLEAR ITERATION COUNT 
(1) 022460 012737 177704 001206 MOV #-60.,SPASS 3/SET PASS COUNT 
(1) :/NOTE: PASS C ED 
(1) ; TO DETECT 60 Passes $9 
(1) yy IT CAN GENERATE A CRL 
(1) AFTER CRLF IT WILL BE ZEROED. 
(1) STCLEAR CLOCK A. 
(1) 022466 23: :/CLEAR CLOCK 8B. 
3 022466 005037 001354 CLR STMDAT 
3 3 MOV STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
te) 3* MOV STMDAT,a@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
3459 
3460 GENERATE AN ‘’STP2 OUT’’ PULSE 
3461 zAT THIS POINT YOU SHOULD 
3462 SEE AN OUTPUT AT PIN V. 
3463 [PIN V SHOULD BE WIRED TO 
3464 *PIN LL FOR ‘SCHMITT TRIG 1°° IN 
3465 
3466 
sie? :* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) 3e MOV STMDAT,@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
ar68 022532 052737 002000 001354 BIS #BIT10.$TMDAT :GENERATE STP2 
(1) 38 MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
3470 022550 000240 NOP 
og} 022552 000240 ; NOP 
(1) 3* MOV @ASR,STMDAT 3 /READ DEVICE REG ASR,PUT DATA IN STMDAT. 
3473 022564 032737 100000 001354 BIT #BITIS,STMDAT :1S ST1 FLAG SET <BIT 15> 
3474 022572 001001 BNE 3$ :BR IF YES TO 3$: 
xe 
12 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
3477 
3478 022574 104000 ERROR sERROR “"SCHMITT TRIG 1°' IN NO 
He *RECEIVED. HAVE YOU WIRED IT RIGHT? 
52 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
oe H 022576 3$: 
(1) 022576 032777 020000 156334 BIT #B1T13,aSwR :/ INHIBIT ‘*'* TYPEQUT? 
H 022604 001330 BNE 23 :/YES = IGNORE ANY UPDATES. 
(1) 022606 005237 001104 INC SICNT :/UPDATE COUNT. 
(1) 022612 001325 BNE 23 :/1F NOT DONE 65,324 TIMES, 
a) */D0 IT AGAIN. 
(2) 022614 104401 022622 TYPE ,65$ TYPE ASCIZ STRING 





ar | 
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| CRLPGC.P11 18-AUG-80 09:15 "STP2 OUT’ TO SCHMITT TRIG aces TESTS SEQ 0151 
(2) 022620 000401 BR 648 ::GET OVER THE ASCIZ 
(2) -:65$: .ASCIZ @e@ 
(2) 022624 bas: 
(1) 022624 005237 001206 INC SPASS :/DONE 60 Bor oe 
(1) 022630 100716 BMI 2$ :/NO = NO NEED FOR CR,LF. 
(2) 022632 104401 022640 TYPE 67$ t:TYPE ASCIZ STRING 
(2) 022636 000402 BR 6$ +:GET OVER THE ASCIZ 
(2) 2:67$: .ASCIZ <15><12>48 
(2) 022644 66$: 
(1) 022644 000703 BR 1$ 
3483 
3484 .SBTTL ;* "STP1 OUT’ TO "SCHMITT TRIG 2°° H TESTS 
;* 
3486 :* THIS IS A SPECIAL TEST SECTION DEVOTED FOR TESTING | AND 
3487 3* PROVIDING SCOPE LOOP CAPABILITIES FOR ‘‘STP1 OU 
rt :* "SCHMITT TRIG2' 
;* 
3490 :* WHEN YOU LOAD AND START AT LOCATION 2 214. PROGRAM 
3491 :* CONTROL IS TRANSFERRED HERE. "'STP1 L PULSES ARE 
3492 :*@ GENERATED BY "LD STAT A HI’ + + apt ' CHAIN S11). 
3493 :* PIN DD ('STP1 OUT’) IS AVIRED TO PIN BB (''SCHM 
3494 :* TRIG 2°) FOR THIS TEST. ''STP1 OUT’ PULSES ARE RECEIVED AS 
3495 3 SCHMITT TRIG 2°° PULSES WHICH WILL CLEAR CLOCK A'S 
3496 :* COUNT REGISTER IF MODE 3 IS SELECTED. 
3497 :* IF AN ERROR IS DETECTED, NORMAL ERROR REPORTING TECHNIC. 
3498 ;* AND ERROR SWITCH REGISTER OPTIONS ARE USED. 
99 tt AN e’’ IS TYPED AFTER EACH 65,324 LOOPS THROUGH 
394 :* THE TEST. SW13=1 WILL INHIBIT THIS FEATURE. 
3% 
3502 
(1) ' ie * PROBABLE SYNC POINT FOR THIS TEST:: "LD STAT B” 
E44 is YOU MUST WIRE PINS DD AND BB OF J1 TOGETHER AND INSTALL JUMPER W4. 
3505 is LOGIC TESTS (L * $ AT 200) SHOULD BE RUN FIRST. 
3507 a 
3308 022646 005037 001664 L$214: CLR .DVLS 
(1) 022652 005037 001104 1$: CLR SICNT s/CLEAR ITERATION COUNT 
(1) 022656 012737 177704 001206 MOV #-60.,SPASS 3/SET PASS COUNT. 
(1) /NOTE: PASS COUNT USED ONLY 
(1) 3 TO DETECT 60 PASSES so 
(1) / IT CAN GENERATE A CRL 
(1) AFTER CRLF IT WILL BE ZEROED. 
(1) ‘/CLEAR CLOCK A. 
(1) 022664 23: :/CLEAR CLOCK B. 
(4) 022664 005037 001354 CLR STMDAT 
(2) 3 MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) it MOV STMDAT,aBSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
3510 sLOAD ALL ONES TO CLK A'S BUFFER + COUNT REG. 





Pa 


or 


‘See - —-—-—--- —---- - - - —- - —_— -- -- ——— _——_- --+~—-~ a 
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iCRLPGC.P11 18-AUG-80 09:15 1 OUT’ TO “SCHMITT TRIG 2° H TESTS SEQ 0152 


$11 ;SELECT MODE, 3. y. 
| 312 GENERATE A ‘STP1 OUT PULSE. 
51 tAT THIS POINT WE SHOULD SEE AN 
514 [OUTPUT AT PIN DD PIN DD SHOULD 
3515 ‘BE WIRED TO PIN BB FOR 
516 :"SCHMITT TRIG 1! IN. THIS SHOULD 
3517 *CAUSE AN "'STP2' WHICH WILL CLEAR 
3518 :CLOCK A°S COUNT REGISTER. 
3519 022710 012737 177777 001354 MOV #-1,STMDAT 
(1) :* MOV STMDAT, @ABR :/ PUT DATA FROM STMDAT TO DEVICE REG ABR 
3321 022726 012737 001400 001354 MOV sorte: B1T9,STMDAT 
3633 :* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(1) 3* MOV @ASR,STMDAT ;/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
3524 022754 052737 010000 001354 BIS #B1Ti2,STMDAT 
(1) * MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
3235 “WAS THE COUNT REGISTER CLEARED? 
(1) :* MOV @ACR,SBDDAT :/READ DEVICE REG ACR,PUT DATA IN S$BDDAT. 
3528 023002 005737 001126 TST SBDDAT 
3530 023006 001401 BEQ 3$ sIF YES BR 3$. 
£ :S$S$SS$SSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
3532 023010 104000 ERROR ERROR "SCHMITT TRIG 2°° IN NOT 
332 *RECEIVED. HAVE YOU WIRED IT RIGHT? 
5: :$$$$$$$$$$S$$S$SS$SS$SS$S>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
3535 023012 3S: 
(1) 023012 032777 020000 156120 BIT #B1T13,aSWR ;/INHIBIT ‘'*"* TYPEOUT 
(1) 023020 001321 BNE 2$ /YES = IGNORE ANY LO DATES. 
(1) 023022 005237 001104 INC SICNT :/UPDATE COUNT 
(1) 023026 001316 BNE 2$ :/1F NOT DONE 65. 324 TIMES, 
cv) :/DO IT AGAIN 
(2) 023030 104401 023036 TYPE ,65$ s:TYPE ASCIZ STRING 
(2) 023034 000401 BR 64$ *:GET OVER THE ASCIZ 
(2) ::65$: .ASCIZ #ef 
(2) 023040 bis: 
(1) 023040 005237 001206 INC SPASS :/DONE 60 PASSES? 
(1) 023044 100707 BMI 2$ :/NO - NO NEED FOR CR,LF. 
(2) 023046 104401 023054 TYPE 67$ [:TYPE ASCIZ STRING 
(2) 023052 000402 BR 66$ [:GET OVER THE ASCIZ 
(2) -:67$: .ASCIZ <15><12>#8 
(2) 023060 66S: 
(1) 023060 000674 OBR 1$ 
3537 
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33 .SBTTL * “SCHMITT TRIG 3° IN, "'ST3 OUT’ TESTS 
;* 
540 TeTHIS I$ A SPECIAL SECTION DEVOTED FOR TESTING AND 
3541 ; *PROVIDING Scop — LOOP CAPABILITIES FOR "SCHMITT TRIG 3° 
$2¢ :*AND ''ST3 OUT’ 
;* 
3544 S*WHEN YOU LOAD AND START AT LOCATION 220, PROGR 
3545 ;*CONTROL IS TRANSFERRED HERE "STP1’’ PULSES ARE NGENERATED 
3546 :eBY LD STAT AH," + BD12"' H (MAIN. STP1). PIN DD (‘'STP1 OUT") 
3547 <#1$ WIRED TO PEN T (“SCHMITT TRIG 3°), "SCHMITT TRIG 3°° PULSES 
3548 GIVE US 'ST3 OUT’ PULSES. PIN L (''STS OUT’) IS WIRED 
3549 [*T0 PIN BB (SCHMITT TRIG2"), AND "SCHMITT TRIG a WILL SET 
3550 [*CLOCK A'S STATUS REGISTER BIT 
3551 IF AN ERROR IS DETECTED, NORMAL ERROR REPORTING TECHNIC. 
3552 : SAND ERROR SWITCH REGISTER OPTIONS ARE USED 
3553 e'" IS TYPED AFTER EACH 65,324 LOOPS THROUGH THE 
3554 satEST. $W13=1 WILL INHIBIT THIS FEATURE. 
3556 “ 
(D | mo * PROBABLE SYNC POINT FOR THIS TEST: “LD STAT BT 
3557 s*YOU MUST WIRE PINS DD TO T OF J1 TOGETHER, AS WELL AS 
3338 :*PINS L TO BB OF J1 TOGETHER AND INSTALL JUMPERS W4 AND WS. 
3560 jeTESTS LS210 AND L$214 SHOULD BE RUN FIRST. 
3562 4 
3563 023062 005037 001664 LS$220: CLR .DVLS 
(1) 023066 005037 001104 1$: CLR SICNT :/CLEAR ITERATION COUNT 
(1) 023072 012737 177704 001206 MOV #-60.,SPASS :/SET PASS COUNT. 
(1) | :/NOTE: PASS COUNT USED ONL 
a) :/ TO DETECT 60 PASSES sO 
(1) :/ IT CAN GENERATE A CRL 
(1) :/ AFTER CRLF IT WILL BE. ZEROED. 
(1) [/CLEAR CLOCK A. 
(1) 023100 2$: :/CLEAR CLOCK B. 
(1) 023100 005037 001354 CLR STMDAT 
(2) 3* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) * MOV STMDAT,@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
3565 :GENERATE A “'STP2 OUT’’ PULSE. 
3566 023124 005037 001354 CLR STMDAT 
(1) 3 MOV @ASR, STMDAT :/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
3368 023140 052737 011000 001354 BIS #B1T12'BIT9, STMDAT 
(1) ry MOV STMDAT,@ASR ;/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
3570 AT THIS POINT YOU SHOULD SEE A 
3571 ‘OUTPUT AT PIN DD. PIN SHOULD BE 
572 ‘WIRED TO PIN T TO GIVE OP StHRITT TRIG3"’ 
573 : INPUT WHICH IN TURN HOLE VE 
3574 AN OUTPUT AT PIN L (''ST3" 


PIN 
3575 iL BEING WIRED TO PIN BB ("SCHMITT 


a 
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576 sTRIG2 IN’) SHOULD GIVE ‘’ST2° WHICH 
Ld ‘SETS CLOCK A'S CSR BIT 7. 
375 :DID BIT 7 SET? 

(1) 3* MOV @ASR,SBDDAT :/READ DEVICE REG ASR,PUT DATA IN SBDDAT. 
3581 023166 105737 001126 TSTB © $BDDAT 
3288 023172 100401 BM] 3$ s1F YES, BR TO 3S. 

1 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<S$SSSSSSSSSSSSSSSSSSSSSSSS 
3584 023174 104000 ERROR sERROR ‘SCHMITT TRIG 2° NOT RECEIVED 
3285 . sHAVE YOU WIRED IT RIGHT? 
1 SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 

3387 023176 3$: 

(1) 023176 032777 020000 155734 BIT #B1T13,aSwR :/INHIBIT ‘'s"' TYPEQUT? 

a) 023204 001335 BNE 2s :/YES = IGNORE ANY UPDATES. 

(1) 023206 005237 001104 INC SICNT :/UPDATE COUNT. 

(1) 023212 001332 BNE 2s :/1F NOT DONE 65. 324 TIMES, 

(1) : :/D0 IT AGAIN 

(2) 023214 104401 023222 TYPE ,65$ sr TYPE ASCIZ STRING 

(2) 023220 000401 BR 64$ ::GET OVER THE AS‘IZ 

(2) ::65$: .ASCIZ #e# 

(2) 023224 éd$: 

(1) 023224 005237 001206 INC SPASS :/DONE 60 PASSES? 

(1) 023230 100723 BMI 23 :/NO = NO NEE D FOR CR.LF. 

(2) 023232 104401 023240 TYPE ,67$ ::TYPE ASCIZ STRING 

(2) 023236 000402 BR 66$ 3:GET OVER THE MAsciZ 

(2) 3:67$: .ASCIZ <15><12>## 

(2) 023244 66$: 

a) 023244 000710 BR 1$ 
3589 
3394 .SBTTL . "’” EVENT OUT’ TEST 
3592 ‘ATHIS IS A SPECIAL SECTION DEVOTED FOR TESTING AND 
3292 ; PROVIDING SCOPE LOOP CAPABILITIES FOR ''A EVENT OUT". 
3595 ‘ + WHEN YOU LOAD AND START AT LOCATION 224, PROGRAM 
3596 ' S*CONTROL IS TRANSFERRED HERE. "A EVENT OUT’ PULSES ARE 
359 **#GENERATED BY CLOCK A OVERFLOWS 

3598 :*("A EVENT OUT’) IS WIRED TO PIN BB (‘‘SCHMITT TRIG a 

5 3*""SCHMITT TRIG 2" PULSES WiLL SET CLOCK A'S CSR 


; $ DETEC 
3601 3 SAND, ERROR SuITCH SREGLSTER OP OPTIONS ARE USED. 
3602 AN “e’’ 1S TYPED AFTER EACH wit 324 LOOPS THROUGH THE TEST. 
3603 jaSW1S=1 WILL INHIBIT THIS FEATURE. 


3* 
3* PROBABLE SYNC POINT FOR THIS TEST:: “LD STAT B" 





-——— 
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023246 


023252 
023256 


023264 
023264 


023310 


023326 


023344 


023354 
023362 


023374 
023400 


023402 
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005037 


005037 
012737 


005037 


012737 


012737 


032737 
001770 


105737 
100401 
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001664 


001104 
177704 


001354 


177777 


001003 


000040 


001126 
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001206 


001354 


001354 


001354 


LS224: 


:*YOU MUST WIRE PINS VV AND BB OF J1 TOGETHER AND INSTALL JUMPER W4. 
TEST. LS210 SHOULD BE RUN FIRST. 


CLR 


CLR 
MOV 


CLR 


BEQ 


MOV 
TSTB 


BMI 


-DVLS 
SICNT ;/CLEAR ITERATION COUNT 
#-60.,SPASS :/SET PASS COUNT. 
;/NOTE: PASS COUNT USED ON 
/ TO DETECT 6 PASSES 7 
/ IT _ CAN GENERATE A CRL 
3/ AFTER CRLF IT WILL BE. ZEROED. 
/CLEAR CLOCK A. 
;/CLEAR CLOCK B. 
STMDAT 
STMDAT ,@ASR ;/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
STMDAT,@BSR ;/ PUT DATA FROM STMDAT TO DEVICE REG BSR 
;PRELOAD CLOCK A'S BUFFER + COUNT REGS. 
#-1,STMDAT 
STMDAT ,@ABR 3/ PUT DATA FROM STMDAT TO DEVICE REG ABR 
;RATE: 1MHZ, ENABLE COUNTER 
#1003, STMDAT 
STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 


sHAS AN OVERFLOW OCCURRED? 
:/READ DEVICE REG ASR,PUT DATA IN STMDAT. 
NO - THEN WAIT FOR IT. 


SOVERFLOW SHOULD GO OUT AS 
o EVENT OUT". ee SEE 


ASR, STMDAT 
#B1T05, STMDAT 


PUT AT 
dong IN TURN IS BROUGHT 
*“SCHM TRIG 2" - TO 


3 IN ITT 
3SET ‘Lock A'S CSR BIT 


@ASR,SBDDAT ;/READ DEVICE REG ASR,PUT DATA IN $BDDAT. 
SBODAT DID BIT 


BR IF YES TO 4$ 


32: SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 


104000 


ERROR 


sERROR “‘A EVENT OUT’ PULSE 
;NOT DETECTED. HAVE YOU 
;WIRED IT RIGHT? 


32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
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3640 023404 4$: 

(1) 023404 032777 020000 155526 BIT #B1713,aSwR s/INHIBIT ‘‘*"’ TYPEOUT? — 
(1) 023412 001324 BNE 2$ S/YES = IGNORE ANY UPDATES. 
(1) 023414 005237 001104 INC SICNT ; /UPDATE COUNT. 

(1) 023420 001321 BNE 2$ /1F NOT DONE 65,324 TIMES, 
(1) :7D0 IT AGAIN. 

@) 023422 104401 023430 TYPE 65$ s:TYPE ASCIZ STRING 

(2) 023426 000401 BR 64$ S:GET OVER THE ASCIZ 

(2) -:65$: .ASCIZ #ef 

(2) 023432 bis: 

(1) 023432 005237 001206 INC SPASS ;/DONE 60 PASSES? 

(1) 023436 100772 BMI 2$ :/NO = NO NEED FOR CR,LF. 
(2) 023440 104401 023446 TYPE 67$ :;TYPE ASCIZ STRING 

(2) 023444 000402 BR 66$ [:GET OVER THE ASCIZ 

(2) 33678: .ASCIZ <15><12>## 

(2) 023452 66S: 

(1) 023452 000677 BR 1$ 
3642 
3043 -SBTTL * "B EVENT OUT’ TEST 

3645 : STHIS IS A SPECIAL SECTION DEVOTED FOR TESTING AND 
3046 ; PROVIDING SCOPE LOOP CAPABILITIES FOR 'B EVENT OUT". 


3648 WHEN YOU LOAD AND START AT LOCATION | 230. PROGRAM 
3649 S*CONTROL IS TRANSFERRED HERE. 'B E T our’ PULSES ARE 
3650 i #GENERATED BY CLOCK B OVERFLOWS. sth . 
3651 :#(°R EVENT OUT) IS WIRED TO PIN BB SCHMITT TRIG 2°’) 
3652 ef SCuMIT RIG 2°° PULSES WILL SET CLOCK A'S CSR BIT 7. 
3653 seIF AN ERROR I TECTED, NORMAL ERROR REPORTING TECHNIQ. 
3654 eM, ERROR SuLTCH REGISTER OPTIONS ARE USED. 
3655 1S TYPED AFTER EACH 65,324 LOOPS THROUGH THE TEST. 
3528 jeSu13=1 WILL INHIBIT THIS FEATURE. 
3658 3* 

(1) ;* PROBABLE SYNC POINT FOR THIS TEST:: "LD BUFF B’° 

3;* 

3659 :#¥0U MUST WIRE PINS TT AND BB OF J1 TOGETHER AND INSTALL JUMPER W4. 
3661 jaTEST L$210 SHOULD BE ae FIRST. 
663 - 
ae) 023454 005037 001664 LS230: CLR -DVLS 

(1) 023460 005037 001104 1$: CLR SICNT :/CLEAR ITERATION COUNT 

(1) 023464 012737 177704 001206 MOV #-60.,SPASS :/SET PASS COUNT. 

(1) /NOTE: PASS COUNT USED ONL 

(1) 7 TO DETECT 60 Passes. so 

(1) 3/ IT CAN GENERATE A 

(1) 3/ AFTER CRLF IT WILL or ZEROED. 

(1) [/CLEAR CLOCK A. 
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(1) 2s: 7/CLEAR CLOCK 8B. 5 
(1) 853035 005037 001354 CLR STMDAT ' | 
@) 3* MOV STMDAT,@ASR :/ PUT DATA FROM STMDAT TO DEVICE REG ASR 
(2) ;* MOV STMDAT,a@BSR :/ PUT DATA FROM STMDAT TO DEVICE REG BSR 

3666 sPRELOAD CLOCK B'S BUFFER * COUNT REGS. 

7 023516 012737 177777 001354 MOV #-1,STMDAT , | 
(1) 3* MOV STMDAT,@BBR 3/ PUT DATA FROM STMDAT TO DEVICE REG BBR 

3669 023534 012737 001000 001354 MOV #1000, $TMDAT 

367) 7* MOV STMDAT,@ASR 3/ PUT DATA FROM STMDAT TO DEVICE REG ASR 

3072 :RATE: 1MHZ, ENABLE COUNTER 

3674 SHAS AN OVERFLOW OCCURRED? 

3675 023552 012737 000003 001354 MOV + #3,$TMDAT 
(1) el MOV STMDAT,a@BSR 3/ PUT DATA FROM STMDAT TO DEVICE REG BSR 

3677 023570 $$: 

(1) 3* MOV @BSR,STMDAT ;/READ DEVICE REG BSR,PUT DATA IN STMDAT. 

3678 023600 032737 000200 001354 BIT #81107, STMDAT | 

3679 023606 001770 BEQ 3$ 3NO -THEN WAIT FOR IT. 

3680 ! ; OVERFLOW SHOULD GO OUT AS 

3681 i :"'B EVENT OUT’. You SHOULD SEE 

:AN OUTPUT AT PIN } 

3683 STHIS_IN TURN IS BRO | 

3684 sIN AS “SCHMITT TRIG 2"° rs TO 

3685 [SET CLOCK A'S CSR BIT 

3686 | 

3687 
(1) 39 MOV @ASR,SBDDAT 3 /READ DEVICE REG ASR,PUT DATA IN SBDDAT. 

3688 023620 105737 001126 TSTB SBDDAT ID BIT 7 SET 

3689 023624 100401 BMI 4$ ‘BR IF YES TO 4$ 

5; {$$8SS$SSSSSSSSSSSSSSSSSS$>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS | 

3691 023626 104000 ERROR ERROR "B EVENT OUT’ PULSE 

3692 T DETECTED. HAVE YOU 

3695 <UIRED IT RIGHT? 

£: :$$$$$$$$$$S$SS$$S$SSSSSSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS | 

3695 023630 4$: 
(1) 023630 032777 020000 155302 BIT #B1T13,aSUR ;/INHIBIT "e"* TYPEOUT? 
(1) 023636 001315 BNE 2$ /YES = IGNORE ANY UPDATES. 
(1) 023640 005237 001104 INC SICNT ;/UPDATE COUNT. 

(1) 023644 001312 BNE 2$ :/1F NOT DONE 65,324 TIMES, 
(1) :/D0 IT AGAIN. 
(2) 023646 104401 023654 TYPE ,65% sr TYPE ASCIZ STRING 
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023652 000401 we BR aa 64s +;GET OVER THE ASCIZ 
ee $ ° e 
(2) 023656 éds: 
(1) 023656 005237 001206 INC SPASS :/DONE 60 PASSES? 
(1) 023662 100703 BMI 2$ :/NO = NO NEED FOR CRLF. 
(2) 023664 104401 023672 TYPE 67% t;TYPE ASCIZ STRING 
(2) 023670 000402 BR 66$ :GET OVER THE ASCIZ 
(2) ::67$: .ASCIZ <15><12>08 
(2) 023676 66$: 
(1) 023676 000670 BR 1$ 
3697 
3698 :*ROUTINE TO HANDLE TRAPS 10 LOC 4, 10 AND. 
3699 S*INTERRUPTS TO WRONG VECT 
3700 :#,42, IOTT(TRAPS) WERE BUT IN LOCATIONS 4-1000 
3702 -~ 
3703 023700 IOTRD: 
3704 023700 011637 024050 MOV (R6) 2% :GET WHERE WE TRAPPED TO. 
3705 023704 162737 000004 024050 SUB #4 ,2$ S=WHERE R6 RETURN 10-4 
3706 023712 104401 023720 TYPE ,65$ 3 TYPE ASCIZ STRING 
(1) 023716 000412 BR 64$ “GET OVER THE ASCIZ 
(1) 33658: .ASCIZ <15><12>#ILLEGAL TRAP TO: # 
mit 023744 Ads: 
3708 023744 013746 024050 MOV 2$,-(SP) :;SAVE 2$ FOR TYPEOUT 
(1) 023750 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
710 023752 104401 023760 TYPE ,67$ :;TYPE ASCIZ STRING 
(1) 023756 000407 BR 66$ ::GET OVER THE ASCIZ 
(1) ::67$: .ASCIZ # FROM LOC.: # 
8? 023776 66$: 
3712 023776 062706 000004 ADD #4 ,R6 :POINT TO WHERE WE TRAPPED FROM. 
3714 024002 011637 024052 MOV (R6),3$ PICK UP Loc 
3715 024006 162737 000002 024052 SUB #2, 38 [FROM REA ADDR. 
3716 024014 013746 024052 MOV 3$,-(SP) +; SAVE ss FOR TYPEOUT 
(1) 024020 104402 TYPOC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
718 024022 023727 024050 000004 CMP 23,84 :DID WE TRAP TO LOC 4? 
719 024030 001405 BEQ 1 ‘IF SO - DON'T RETURN! 
720 024032 023727 024050 000010 CMP 2$,#10 ;DID WE TRAP TO LOC. 10? 
3721 024040 001401 BEQ 1$ 71D SO - DON'T RETURN! 
3722 024042 000002 RTI [TRY RETURNING. 
3724 ‘ 
5 5 {$$$$$$S$S$SSSSSSSSSSSS5SSS>> ERROR <<SSSSSSSSSSSSSSSSSSSSSSSSS 
3725 024044 000000 1$: HALT sWE STOPPED HERE BECAUSE WE TRAPPED 
726 024046 000776 BR 1$ [TO LOC 4 OR LOC 10. THIS IS A 


FATAL a THAT WE CAN NOT 
RECOVER FROM. 
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32s SSSSSSSSSSSSSSSSSSSSSSSSS>> ERROR <<SSSSSESSSSSSSSSSSSSSSSSSS 
3731 024050 000000 $3 - WORD 8 sUSED BY IOTRP TO STORE WHERE WE TRAPPED 10. 
000000 $: - WORD [USED BY IOTRP TO STORE WHERE WE TRAPPED FROM. 
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-SBTTL 
-SBTTL *SYSMAC ROUTINES 
- SBTTL 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


i eeeeeeeeeeeeeeererececereneeereceeneennneneeeneeeeneeeeeereeets 

SSTHIS ROUTINE IS USED 3 o— A 16-BIT BINARY NUMBER TO A 6-DIGIT 
S*OCTAL (ASCII) NUMBER A YPE IT 

i e$TYPOS---ENTER HERE 10 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 





3*C 

3° MOV NUM ,-(SP) : NUMBER TO BE TYPED 

: TYPOS 3:CALL FOR TYPEOUT 

3* BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* BYTE & :;M=1 OR 0 

3* 31=TYPE LEADING ZEROS 

os  O=SUPPRESS LEADING ZEROS 


j *STYPON=---ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i e$TYPOS OR $TYPOC 


:*CALL: 

3* MOV NUM, -(SP) 7 NUMBER TO BE TYPED 

‘¢ TYPON 3;CALL FOR TYPEOUT 

jaSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*® 

ie MOV NUM ,-(SP) >;NUMBER TO BE TYPED 

3* TYPOC 3;CALL FOR TYPEOUT 
017646 000000 STYPOS: MOV a(SP),-(SP) 3zPICKUP THE MODE 
116637 000 024277 MOVB 1(SP) *$OF ILL 3;LOAD ZERO FILL SWITCH 
112637 024301 MOVB (SP)+, * SOMODE +1 >;NUMBER OF DIGITS TO TYPE 
062716 000002 ADD #2, (SP) 3:;ADJUST RETURN ADDRESS 
000406 BR TYPON 
112737 000001 024277 $TYPOC: MOVB #1 ,SOFILL 33SeT THE itr FILL SWITCH 
112737 000006 024301 MOVB #6, SOMODE+1 3:SET FOR SIX(6) DIGITS 
112737 000005 024276 $TYPON: MOVB #5, SOCNT oe SET ™ ITERATION COUNT 
010446 MOV R4,-(SP) 3 SAVE Ra 
010546 MOV R5,-(SP) SAVE R5 
113704 024301 MOVB SOMODE +1 ,R4 3;GET THE NUMBER OF DIGITS TO TYPE 
005404 NEG R4 
062704 000006 ADD #6 ,R4 sseyeranet IT FOR MAX. ALLOWED 
110437 024300 MOVB R4 , SOMODE :SAVE IT FOR USE 
113704 024277 MOVB SOF ILL ,R4 GET THE ZERO FILL SWITCH 
016605 000012 MOV 12(SP),R5 ster g THE INPUT NUMBER 
005003 CLR RS SICLEAR THE OUTPUT, WORD 
006105 1$: ROL R5 + ROTATE MSB INTO ‘C 
000404 BR 3$ 3G0 DO MSB 
006105 23: ROL RS TI FORM THIS DIGIT 
006105 ROL R5 
006105 ROL R5 
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(1) 024172 01050 MOV R5,R3 
(1) 026174 00610 3$: ROL R3 ::GET LSB OF THIS DIGIT 
(1) 024176 105337 024300 DECB  $OMODE S:TYPE THIS DIGIT? 
(1) 024202 100016 BPL 7 a3 NO 
(1) 024206 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
(1) 024210 001002 BNE 4$ 
(1) 024212 005704 TST R4 3 3 SUPPRESS THIS 0? 
(1) 024214 001403 BEQ 5$ YES 
(1) 024216 005204 4$: INC R4 DON’ T SUPPRESS ANYMORE 0'S 
(1) 024220 052703 000060 BIS #°0,R3 MAKE THIS DIGIT ASCII 
(1) 024224 052703 000040 5$: BIS #' (RB S:MAKE ASCII IF NOT ALREADY 
(1) 024230 110337 024274 MOVE R3, 8S T:SAVE FOR TYPI 
(1) 024236 104401 024274 TYPE 8$ 3360 TYPE THIS DIGIT 
(1) 024240 105337 024276 7$: DECB © $OCNT [COUNT BY 1 
(1) 024264 003347 BGT 2$ ::BR IF MORE TO DO 
(1) 024246 002402 BLT 6$ 33 
(1) 024250 005204 INC R4 +:INSURE LAST DIGIT ISN'T A BLANK 
(1) 024252 000744 BR 2$ ::G0 DO THE LAST DIGIT 
(1) 024254 012605 6$: MOV (SP)+,R5 SRESTORE RS 
(1) 024256 012604 MOV (SP)+.R4 TIRESTORE R4 
(1) 024260 012603 MOV (SP)+,R3 7:RESTORE R3 
(1) 024262 016666 000002 000004 MOV 2(SP),4(SP) ::SET THE STACK FOR RETURNING 
(1) 024270 012616 MOV (SP) +, (SP) 
(1) 024272 000002 RTI RETURN 
(1) 024274 000 RS: .BYTE 0 ;} STORAGE FOR ASCII DIGIT 
(1) 024275 000 “BYTE 0 S TERMINATOR FOR TYPE ROUTINE 
(1) 024276 000 SOCNT: .BYTE 0 3 30CTAL DIGIT COUNTER 
(1) 024277 000 SOFILL: .BYTE 0 SZERO FILL SWITCH 
(1) 024 000000 SOMODE: .WORD 0 SINUMBER OF DIGITS TO TYPE 

3738 -SBTTL ERROR HANDLER ROUTINE 
(2) FRAAAAAAAAAAAAAAAAEAAAAAAAAATAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAES 
a) TSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(1) 3 *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(1) [AND GO TO SERRTYP ON ERROR 
(1) :*THE SWITCH OPT LONs PROVIDED BY THIS ROUTINE ARE: 
(1) *SW15=1 T ON ERROR 
(1) *SW13=1 WWHieIt ERROR TYPEOUTS 
(1) #SW10=1 BELL ON ERR 
(1) *Sw09=1 LOOP ON ERROR 
(1) *CALL 
aH te ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
(1) 024302 SERROR: 
(1) 026302 104407 CKSWR ss TEST FOR CHANGE IN SOFT-SWR 
(1) 024304 105237 001103 7$: INCB = SERFLG [SET THE ERROR FLAG 
(1) 024310 001775 BEQ 7$ *DON'T LET THE FLAG GO TO ZERO 
(1) 026312 013777 001102 154622 MOV STSTNM, @DISPLAY : DISPLAY TEST NUMBER AND ERROR FLAG 
(1) 026320 032777 002000 154612 BIT #81710, aSuR ;;BELL ON ERR 
(1) 026326 001492 BEO 1$ : KIP 
(1) 024330 104401 001170 TYPE SBELL 3 RING BELL 
(1) 024334 005237 001112 1$: INC $ERTTL [COUNT THE NUMBER OF ERRORS 
(1) 026340 011637 001116 MOV (SP), Bennrc >:GET ADDRESS OF ERROR INSTRUCTION 
(1) 026344 162737 000002 001116 SUB #2, SERRPC 
(1) 026352 117737 154540 001114 MOVB  aSERRPC,SITEMB ;:STRIP AND SAVE THE ERROR ITEM CODE 
(1) 026360 032777 020000 154552 BIT #B1T13, aSuR <ISKIP TYPEOUT IF SET 


1 


or 
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(1) 024366 001 BNE 208 :SKIP TYPEOUTS 
(1) 024370 004737 024502 JSR PC, SERRTYP °'60 TO USER ERROR ROUTINE 
(1) 026374 104401 001175 TYPE  ,$CRLF 
(1) 024400 208: 
(1) 024400 122737 000001 001220 CMPB 9 WAPTENV,SENV =; ; RUNNING IN APT MODE 
(1) 024406 001007 BNE 2$ [:NO,SKIP APT ERROR REPORT 
(1) 024410 113737 001114 024422 MOVB $ITEMB,21$ *:SET ITEM NUMBER AS ERROR NUMBER 
(1) 026416 004737 026432 JSR PC, SATY4 <CREPORT FATAL ERROR TO APT 
(1) 026422 000 21$: BYTE 0 
(1) 026423 000 "BYTE 0 
(1) 026424 000777 22$: BR 22% s;APT ERROR LOOP 
(1) 026426 005777 154506 2$: TST aSWR S:HALT ON ERROR 
(1) 024432 100002 BPL 3$ ::SKIP IF CONTINUE 
(1) 024434 000000 HALT ;:HALT ON ERROR! 
(1) 024436 104407 CKSWR STEST FOR CHANGE IN SOF T-SWR 
(1) 024440 032777 001000 154472 38: BIT #B1T09,aSwWR LOOP ON ERROR SWITCH SET? 
(1) 026446 001402 BEQ 4$ F NO 
(1) 024450 013716 001110 MOV SLPERR, (SP) ‘= FUDGE RETURN FOR LOOPING 
(1) 026454 005737 001166 4$: TST SESCAPE i: CHECK FOR AN ESCAPE ADDRESS 
(1) 024460 001402 BEQ 5$ ‘BR IF NONE 
C) 024462 013716 001166 * MOV SESCAPE,(SP) =: FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 024666 022737 022414 000042 CMP #SENDAD,@#42 =; ;ACT-11 AUTO-ACCEPT? 
(1) 024474 001001 BNE 6$ BRANCH IF NO 
(1) 024476 000000 HALT * YES 
(1) 024500 6$: 
(1) 024500 000002 RTI 3 ;RETURN 

3739 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) RSSSSSRAAAAAAAREREAAAATAATAAAAARARAAARARAAAARAARAARARAAERARAAAAAAAAE 
(1) <STHIS ROUTINE USES THE "ITEM CONTROL BYTE’ <SITEMB) TO DETERMINE WHICH 
(1) SeERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE’ (SERRTB), 
w “AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
(1) 024502 SERRTYP: 
(1) 024502 104401 001175 TYPE  ,S$CRLF :: “CARRIAGE RETURN’ & “LINE FEED" 
(1) 024506 010046 MOV RO, -(SP) SAVE R 
(1) 024510 005000 CLR RO S:PICKUP THE ITEM INDEX 
(1) 024512 153700 001114 BISB a#SITEMB.RO 
(1) 0246516 001004 BNE 1$ s:1F ITEM NUMBER IS ZERO, ust 
1) ‘TYPE THE PC OF THE ERR 
(2) 026520 013746 001116 MOV SERRPC,-(SP) SAVE SERRPC FOR TYPEQUT. 
(2) ;3ERROR ADDRESS 
(2) 026524 104402 TYPOC *:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 024526 000426 BR 6$ GET OU 
(1) 024530 005300 1$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
(1) 024532 006300 ASL RO 3 WORK FOR THE ERROR TABLE 
(1) 024534 006300 ASL RO 
(1) 0246536 006300 ASL RO 
(1) 024540 062700 001356 ADD #SERRTB,RO ::FORM TABLE POINTER 
(1) 024544 012037 024554 MOV (RO)+, 2% ::PICKUP ERROR MESSAGE’ POINTER 
(1) 024550 001404 BEQ 3$ ‘SKIP TYPEQUT IF NO POINTER 
(1) 024552 104401 TYPE :STYPE THE ‘ERROR MESSAGE 
(1) 024554 000000 23: .WwORD 0 3 ERR RESSaGe™ POL NTER GOES HERE 
(1) 0246556 104401 001175 TYPE  ,SCRLF i CARRIAGE RETURN’ & "LINE FEED" 
(1) 026562 012037 024572 3s: MOV (RO) +, 4% PICKUP "DATA HEADER’ POINTER 
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CRLPGC.P11  18-AUG-80 09:15 ERROR MESSAGE TYPEOUT ROUTIN SEQ 0162 

(1) 024566 001404 BEQ 5$ ::SKIP TYPEOUT IF af 

(1) 024570 104401 TYPE S:TYPE THE ‘DATA HEADER’ 

(1) 024572 060000 4$: .WORD 0 ce OATA HEADER’ POINTER GOES HERE 
(1) 024574 104401 001175 TYPE  ,SCRLF i CARRIAGE RETURN’ & SL INE FEED" 
(1) 024600 011000 5$: MOV (RO) ,RO PICKUP "DATA TABLE’ POINTER 

(1) 024602 001004 BNE 7$ 7:60 TYPE THE DATA 

(1) 024604 012600 6$: MOV (SP)+,RO RESTORE RO . 
(1) 024606 104401 001175 TYPE ,$CRLF :3"CARRIAGE RETURN’ & "LINE FEED’ 
(1) 024612 000207 RTS PC + | RETURN 

(1) 024614 7$: 

(2) 024614 013046 MOV a(RO)+,-(SP) s:;SAVE a(RO)+ FOR TYPEOUT 

(2) 024616 104402 TYPOC 3:G0 TYPE--OCTAL ny DIGITS) 
(1) 024620 005710 TST (RO) 3:1S THERE ANOTHER NUMB 

(1) 024622 001770 BEQ 6$ sBR IF NO 

(1) 024624 104401 024632 TYPE 8$ +: TYPE TWO(2) SPACES 

(1) 024630 000771 BR $ ::L00 

(1) 024632 020040 000 8$: eASCIZ / / ::TWO(2) SPACES 

(1) 024636 EVEN 
a -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

(2) : Z RAERAAAARAAAAAAAAAAAAAAAAAAAETAAAARARAAAAAARAARAARARAAARAAAARAARAAAEE 
(1) [*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
(1) :*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) s*NUMBER IS POSITIVE OR — A SPACE OR A MINUS SIGN WILL BE TYPED 
(1) + *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
St genePLACED WITH SPACES. 
7*CALL: 

(1) 3 MOV NUM,-(SP) :;PUT THE BINARY NUMBER ON THE STACK 
a 3 TYPDS 3;G0 TO THE ROUTINE 

(1) 024636 STYPDS: 

(3) 024636 010046 MOV RO,-(SP) :sPUSH RO ON STACK 

(53) 024640 010146 MOV R1,-(SP) ;PUSH R1 ON STACK 

(3) 024642 010246 MOV R2,-(SP) : : PUSH R2 ON STACK 

(3) 024644 34 MOV R3,-(SP) :7;PUSH R3 ON STACK 

(3) 024646 010546 MOV R5.-(SP) ::PUSH R5 ON STACK 

(1) 024650 012746 020200 MOV #26200,-(SP) i:SET BLANK SWITCH AND SIGN 

(1) 024654 016605 000020 MOV 20(SP).R5 GET THE INPUT NUMBER 

(1) 0 100004 BPL 1$ +:BR IF INPUT IS POS. 

(1) 02 005405 NEG R5 S:MAKE THE BINARY NUMBER POS. 

(1) 024664 112766 000055 000001 MOVB = #'*=,, 1 SP) [:MAKE THE ASCII NUMBER NEG. 

(1) 024672 005000 1$: CLR RO ::ZERO THE CONSTANTS INDEX 

(1) 024674 012703 025052 MOV #SDBLK,R3 ::SETUP THE OUTPUT POINT 

(1) 024700 112723 000040 mOVB #" ,(R3)+ [:SET THE FIRST UNARACIER TO A BLANK 
(1) 024704 005002 2s: CLR R2 Z3CLEAR THE BCD NUMBER 

(i} 024706 016001 025042 MOV $DTBL(RO),R1 [GET THE CONSTAN 

(1) 026712 160105 3S: SUB R1,R5 ::FORM THIS BCD DIGIT 

(1) 024714 002402 BLT 4$ [:BR IF DONE 

(1) 024716 005202 INC R2 >: INCREASE THE BCD DIGIT BY 1 

(1) 024720 000774 BR 3$ 

(1) 024722 060105 4$: ADD R1,R5 ADD BACK THE CONSTANT 

(1) 024724 005702 TST R2 : CHECK IF BCD DIGIT=0 

(1) 024726 001002 BNE 5$ *:FALL THROUGH IF 

(1) 024730 105716 TSTB 3s (SP) Z:STILL DOING LEADING 0°S? 

(1) 024732 100407 BMI 7$ T:BR IF YES 

(1) 026734 106316 5$: ASLB ss (SP) : MSD? 


—— 
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CRLPGC.P11  18-AUG-80 09:15 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0163 
(1) 024736 10300 BCC 6$ ;BR IF NO 
(1) 024740 116663 000001 177777 MOVB VsP) “1(R3) :: YES@-SET THE SIGN 
(1) 024746 052702 000060 6$: BIS #'0,R2 S:MAKE THE Po, DIGIT ASCII 
(1) 024752 052708 000040 7$: BIS #’ .R2 S:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 024756 11022 MOVB  R2, (R3)¢ ::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 024760 005720 TST (RO) + +: JUST INCREMENT ING 
(1) 024762 020027 000010 CMP RO, #10 i: CHECK THE TABLE INDEX 
(1) 024766 002746 BLT 2$ 3 0 THE NEXT DIGIT 
(1) 024770 2 BGT 385 
(1) 024772 010502 MOV R5,R2 33GET T HE 130 
(1) 024774 000764 BR 6 :60 CHANGE T C11 
(1) 024776 105726 8$: TSTB Ss (SP) 33WAS THE Esp” THE FIRST NON-ZERO? 
(1) 025000 100003 BPL 9$ R IF NO 
(1) 025002 116663 177777 177776 MOVB -1(SP),-2(R3) ::YES@-SET THE SIGN FOR TYPING 
(1) 025010 105013 9$: CLRB ss (R’3) S:SET THE TERMINATOR 
(3) 025012 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
(3) 025014 012603 MOV (SP)+.R3 [:POP STACK INTO R3 
(3) 025016 012602 MOV (SP) +, R2 ::POP STACK INTO R2 
(3) 025020 012601 MOV (SP)+.R1 [:POP STACK INTO R1 
(3) 025022 012600 MOV (SP)+.RO 3:POP STACK INTO RO 
(1) 025024 104401 025052 TYPE S$DBLK ‘NOW TYPE THE NUMBER 
(1) 025030 016666 000002 000004 MOV 3(SP) ,4(SP) SZADJUST THE STACK 
(1) 025036 012616 MOV (SP)+, (SP) 
(1) 025040 000002 RTI ;;RETURN TO USER 
(1) 025062 023420 SDTBL: 10000. 
(1) 025044 001750 1000. 
(1) 025046 000144 00. 
(1) 025050 000012 
(1) 025052 000004 $DBLK: .BLKWw 4 
3741 -SBITL SCOPE HANDLER ROUTINE 
(2) FRAAAAAAAAAAARAAAAATATATAAATATARARAAARARARARAAAAAAAAAAAAAAAAAANS 
) ;+THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(i) AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) 2 AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) [2THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) *SW14=1 LOOP ON TEST 
(1) 7*SW09=1 LOOP ON ERROR 
(1) > *SWw08=1 LOOP ON TEST IN SWR<7:0> 
(1) 7 *CALL 
144 3* SCOPE >: SCOPE=10T 
(1) 025062 SSCOPE: 
(1) 025062 104407 CKSWR : TEST FOR CHANGE IN SOFT-SWR 
(1) 025064 032777 040000 154046 1$: BIT #B1T14,aSuR [LOOP ON PRESENT TEST? 
(1) 025072 001062 BNE SOVER “YES IF Swi4=1 
(1) ;MMRBESTART OF CODE FOR THE XOR iéstentent 
(1) 025074 000416 $xTSTR: BR 63 ;1F RUNNING ON THE "'XOR' TESTER CHANGE 
(1) ?: THIS INSTRUCTION TO A "NOP (NOP=240) 
(1) 025076 013746 000004 MOV AFERRVEC.-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 025102 012737 025122 000004 MOV #5S,QNERRVEC = 3; SET FOR TIMEOUT 
(1) 025110 005737 177060 TST a#177060 [TIME OUT ON XOR? 
(1) 025114 012637 000004 MOV (SP)+, @#ERRVEC 3 :RESTORE THE ERROR VECTOR 
(1) 025120 000431 BR S$SVLAD °:G0 TO THE NEXT TEST 
(1) 025122 022626 5$: CMP (SP)+, (SP)+ S:CLEAR THE STACK AFTER A TIME OUT 
(1) 025124 012637 000004 MOV (SP) +, a#ERRVEC T RESTORE THE ERROR VECTOR 
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(1) 025130 000417 BR 7$ OOP ON THE PRESENT TEST 
(1) 025132 6$:;###RHEND OF CODE FOR THE XOR ite Reeane 
(1) 025132 032777 000400 154000 BIT #B1TO8,aswRe :3LOOP ON SPEC. TEST? 
(1) 025140 001404 BEQ I 
(1) 025142 127737 153772 001102 CMPB Os @SWR, STSTNM °:0N THE RIGHT TEST? SwWR<7:0> 
(1) 025150 001433 BEQ SOVER 33 Y 
(1) 025152 105737 001103 2$: TSTB = SERFLG 33HAS AN ERROR OCCURRED? 
(1) 025156 001412 BEQ SSVLAD F 
(1) 025160 032777 001000 153752 BIT #B81T09,asuR i;LOOP ON ERROR? 
(1) 025166 001404 BEQ IF 
(1) 025170 013737 001110 001106 7s: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 025176 000420 BR SOVER 
(1) 025200 105037 001103 4$: CLRB ss SERFLG $3 ZERO_ THE ERROR FLAG 
(1) 025204 105237 001102 SSVLAD: INCB  $TSTNM T TEST NUMBERS 
(1) 025210 113737 001102 001204 MOVB STSTNA. STESTIN tISET TEST NUMBER IN APT MAILBOX 
(1) 025216 011637 001106 MOV (SP) ,SLPADR ::SAVE SCOPE LOOP ADDRESS 
(1) 025222 011637 001110 MOV (SP) .SLPERR ::SAVE ERROR LOOP ADDRESS 
(1) 025226 005037 001166 CLR SESCAPE i: CLEAR THE ESCAPE FROM ERROR ADDRESS 
(1) 025232 112737 000001 001115 MOVB #1, SERMAX [ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(1) 025240 013777 001102 153674 SOVER: MOV STSTNM,QDISPLAY ::DISPLAY TEST NUMBER 
(1) 025246 013716 001106 MOV SLPADR. (SP) :3FUDGE RETURN ADDRESS 
(1) 025252 2 RTI SFIXES PS 
3742 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) FRMARARAAAAAAAAAAAAAAAAARAAAAAAAAAAAHHAAAAAAAAARAAEE ea2eezeeeaeaeeene 
(1) :STHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
(1) [*CHANGE IT TO BINARY. 
(1) :*CALL: 
(1) ie RDOCT ::READ AN OCTAL NUMBER 
(1) ie RETURN HERE >:LOW ORDER BITS ARE ON TOP OF THE STACK 
(1) ie ::HIGH ORDER BITS ARE IN $HIOCT 
(1) 025254 011646 SRDOCT: MOV (SP) ,-(SP) s:PROVIDE SPACE FOR THE 
(1) 025256 016666 000004 000002 MOV 4(SP) ,2(SP) :: INPUT NUMBER 
(3) 025264 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 025266 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(3) 025270 010246 MOV R2,-(SP) >:PUSH R2 ON STACK 
(1) 025272 104411 1$: RDLIN >:READ AN ASCIZ LINE 
(1) 025274 012600 MOV (SP)+,RO [:GET ADDRESS OF 1ST CHARACTER 
(1) 025276 005001 CLR R1 *:CLEAR DATA WORD 
(1) 025300 005002 CLR R2 
(1) 025302 112046 2s: MOVB = (RO) +, -( SP) ::PICKUP THIS CHARACTER 
(1) 025304 001412 BEQ 3$ t:1F ZERO GET OUT 
(1) 025306 006301 ASL R1 s3%2 
(1) 025310 006102 ROL R2 
(1) 025312 006301 ASL R1 32%4 
(1) 025314 006102 ROL R2 
(1) 025316 006301 ASL Rt 73%8 
(1) 025320 006102 ROL R2 
(1) 025322 042716 177770 BIC #°C7, (SP) ::STRIP THE ASCII JUNK 
(1) 025326 062601 ADD (SP)+,R1 ::ADD IN THIS DIGIT 
(1) 025330 ere BR 2s 3; LOOP 
(1) 025332 005726 3$: TST (SP)+ :: CLEAN TERMINATOR FROM STACK 
(1) 025334 010166 000012 MOV R1,12(SP) *;SAVE THE RESULT 
(1) 025340 010237 025354 MOV R2.$HIOCT 
(3) 025344 01260 MOV (SP)+,R2 ::POP STACK INTO R2 
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READ AN OCTAL NUMBER FROM THE T 


MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 


SHIOCT: .WORD 0 
-SBTTL TTY INPUT ROUTINE 


JF ARAAAAAAKAAAAAAAATARAAAAAAAATAAAAARAARAAAAAAAAAARAARAAKAAAAE AES 


-ENABL LSB 


peeeeeeeeeneaaeeeereeeereeeeeeeeaneeaeeaeeeneeneeeeeeeeeeeeeeeee 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 

S*SERVICE THE TEST FOR CHANGE IN SOFTWARE SuitcH REGISTER TRAP CALL 
; *WHEN _OPERATING IN TTY FLAG MODE. 


SEQ 0165 


33POP STACK INTO R1 
fh8 x —— INTO RO 


sRETU 
eMIGH ORDER BITS GO HERE 


$CKSWR: CMP #SUREG, SWR 
15$ 


31S THE SOFT-SWR SELECTED? | 
IF NO 


BNE ; ;BRANCH 

TSTB astKs 23Gn HAR THERE? 

BPL 15$ 331F NO, DON'T WAIT AROUND 
MOVB aSTKB,-(SP) T:SAVE THE CHAR 


BIC aci7?. (SP) 


cMP #7,¢ 
BNE 1s6 
CMPB SAUTOB #1 
BEQ 15$ 


TYPE »SCNTLG 
SGTSWR: TYPE o SMSWR 
MO SWREG,-(SP) 


Vv 
TYPOC 
TYPE - SMNEW 
19$: CLR -(SP) 
CLR -(SP) 
7$: TSTB asTKs 
BPL 7$ 


MOVB = aSTKB, -(SP) 
BIC #°C177, (SP) 


9$: CMP (SP) ,#25 
BNE 10$ 
TYPE eSCNTLU 


208: ADD #6,SP 
BR 19$ 


10$: CMP 


——_—— 
yen) 
PAH 
> 
o 
i) 


2 STRIP-OFF THE ASCII 


USER 
ARE WE RUNNING. IN AUTO-MODE? 
 TBRANCH IF YES 


s:ECHO THE CONTROL-G (*G) 
Hee CURRENT gb dd 

AVE SWREG FOR TYPEOUT 
$60 TYPE--OCTAL ASCII(ALL DIGITS) 
:;PROMPT FOR NEW SWR 
3;CLEAR COUNTER 
3; THE NEW SWR 
::CHAR THERE? 
371f NOT TRY AGAIN 


::PICK UP CHAR 
7;MAKE IT 7-BIT ASCII 


31S IT A CONTROL-U? 
;:BRANCH IF NOT 

:3YES, ECHO CONTROL-U (“U) 
::1GNORE PREVIOUS INPUT 
3:LET'S TRY IT AGAIN 


s:IS ITA met 
5s0een CH IF NO 
rr YES, us y an FIRST CHAR? 


3;ECHO <CR> AND <LF> 
7;RE-ENABLE TTY KBD INTERRUPTS? 
;:BRANCH IF NOT 
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Y INPUT ROUT! 

MOV #100, a$TKS :;RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI :: RETURN 
16$: JSR PC, STYPEC ::ECHO CHAR 

CMP (SP) , #60 S:CHAR < 0? 

BLT 18$ :;BRANCH IF YES 

CMP (SP) , #67 ::CHAR > 7? 

BGT 18$ BRANCH IF VES 

BIC #60, (SP)+ ::STRIP=OFF ASCII 

TST 2(SP) t:1$ THIS THE FIRST CHAR 

BEQ 17$ ::BRANCH IF YES 

ASL (SP) 33NO, SHIFT PRESENT 

ASL (SP) 33 “CHAR OVER TO MAKE 

ASL (SP) ROOM FOR NEW ONE. 
17$: ‘INC 2(SP) S:KEEP COUNT OF CHAR 

BIS =2(SP), (SP) tISET IN NEW CHAR 

BR 7$ ::GET THE NEXT ONE 
18$: ‘TYPE SQUES Si TYPE 2<CR><LF> 

BR 50$ ::SIMULATE CONTROL-U 
.DSABL LSB 


FRAERRARERAAREEARAAAAARAAAA AAT AAATAAAAAAAAAAAAAAARAAHEAAAAAAAAAAEE 


TSTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


>*CALL: 
Ze RDCH :: INPUT A SINGLE og ye FROM THE TTY 
:* RETURN HERE 3s: CHARACTER IS ON THE STA 
;* :;WITH PARITY BIT STRIPPED OFF 
SRDCHR: MOV (SP) ,-(SP) 7:PUSH DOWN THE PC 
MOV 4 (SP), 2(SP) 3;SAVE THE PS 
1$: TSTB astKk ::WAIT FOR 
BPL 1$ ::A CHARACTER 


MOVB a$TKB,4(SP) *:READ THE TTY 
BIC Hb EN 4(SP) ::GET RID OF JUNK IF ANY 


CMP 4(SP #238 ::1$ IT A CONTROL-S? 
BNE ::BRANCH IF NO 

2$: TSTB ag tks *:WAIT FOR A CHARACTER 
BPL 2$ ::LOOP UNTIL ITS THERE 
MOVB  a$TKB,-(SP) ::GET CHARACTER 
BIC #°C177, (SP) *:MAKE IT 7-BIT ASCII 
CMP (SP)+,#21 ::1$ IT A CONTROL-Q? 
BNE 2$ 31 NOT DISCARD IT 
BR 1$ YES, RESUME 

3S: CMP 4(SP),#140 t:1$ IT UPPER CASE? 
BLT 4$ 33 H 
CMP 4(SP) #175 t:1S IT A SPECIAL CHAR? 
BGT 4$ ::;BRANCH IF Y 
BIC #40,4(SP) ::MAKE IT UPPER CASE 
RTI °:G0 BACK TO USER 


eeeeeeereneeerereeeceeerenenereeeeeneeereeeeterenetenenesenete 


zeTHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 


ce s INPUT A STRING FROM THE T 
3 RETURN HERE ST ADDRESS OF FIRST SM ARAETER. WILL BE ON THE STACK 
te *: TERMINATOR WILL BE A BYTE OF ALL O'S 


SEQ 0166 





—— Eee 
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LPA-KW11K DIAGNOSTIC MD-11-CR 
CRLPGC.P11  18-AUG-80 09:15 TTY INPUT ROUT! SEQ 0167 

(1) 

(1) 025760 010346 SRDLIN: MOV R3,-(SP) TSAVE R3 

(1) 025762 012703 026066 1$: MOV #STTYIN,R3 °:GET ADDRESS 

(1) 025766 022703 026076 2$: CMP #STTYINGS. RB i BUFFER FULL? 

(1) 025772 101405 B 4$ :3BR IF YES 

(1) 025774 104410 RDCHR 60 READ ONE CHARACTER FROM THE TTY 

(1) 025776 112613 MOVB = (SP) +, (R3) +:GET CHARACTER 

(1) 026000 122713 000177 10$:  CMPB  #177,(R3) t:IS IT A 

(1) 026004 001003 BNE $ :3SKIP IF NOT 

(1) 026006 104401 001174 4$: TYPE SQUES sTYPE A '?° 

(1) 026012 000763 BR is SI CLEAR THE BUFFER AND LOOP 

(1) 026014 111337 026064 3$: MOVE = (R3),98 S:ECHO THE CHARACTER 

(1) 026020 104401 026064 TYPE 9S 

(1) 026024 122723 000015 CMPB ss #15, (R3)+ s:CHECK FOR RETURN 

(1) 026030 001356 BNE $ +:LOOP IF NOT RETURN 

(1) 026032 105063 177777 CLRB 3s = 1(R3) *:CLEAR RETURN (THE 15) 

(1) 026036 104401 001176 TYPE  ,$LF ::TYPE A LINE FEED 

(1) 026042 012603 MOV (SP)+,R3 ::RESTORE R3 

(1) 026044 011646 MOV (SP) ,-(SP) 3 SADJUST THE STACK AND PUT ADDRESS OF THE 

(1) 026046 016666 000004 000002 MOV 4(SP),2(¢SP) 33 FIRST ASCII CHARACTER ON IT 

(1) 026054 012766 026066 000004 MOV #STTYIN, 4(SP) 

-(1) 026062 000002 RTI :RETURN 

(1) 026064 000 9$: .BYTE 0 i} STORAGE FOR ASCII CHAR. TO TYPE 

(1) 026065 000 -BYTE 0 MINATOR 

(1) 026066 900010 STTYIN: .BLKB 8. ;:RESERVE 8 BYTES FOR TTY INPUT 

(1) 026076 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> £500 TROL ‘'U" 

(1) 026103 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> + CONTROL 

(1) 026110 005015 053523 020122 SMSWR: .ASCIZ <15><12>/SUR = / 

(1) 026116 020075 000 

(1) 026121 040 047040 053505 SMNEW: .ASCIZ / NEW = / 

(1) 026126 036440 000040 

3744 .SBTTL TYPE ROUTINE 

1 

(2) FERRARA AAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAARAAAAARAAAAAAAAE TS 

(1) < SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

(1) ‘eTHE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

(1) :*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

(1) s*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

(a) : *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER 
- 

(1) :*CALL: 

(1) 1) USING A TRAP INSTRUCTION 

(1 ca YPE  ,MESADR s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ie 

(1) 3* TYPE 

(1) 3* MESADR 

Ht * 

(1) 026132 105737 001157 $TYPE: TSTB $TPFLG ::1S THERE A TERMINAL? 

(1) 026136 100002 BPL 1$ [:BR IF Y 

(1) 026140 000000 HALT ::HALT HERE IF NO TERMINAL 

(1) 026142 000430 BR 3$ ; sLEAVE 

(1) 026144 010046 1$: MOV RO,-(SP) *SAVE RO 

(1) 026146 017600 000002 MOV a2(sP),RO $:GET ADDRESS OF ASCIZ STRING 

(1) 026152 122737 000001 001220 CMPB  s MAPTENV,SENV =: ;RUNNING IN APT 

(1) 026160 001011 BNE 62$ *:NO,GO CHECK FOR APT CONSOLE 


rr 








> cS ee es 


| LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C ACYT 93061063) 24-0CT-80 att :38 PAGE 3-147 
| CRLPGC.P11  18-AUG-80 09:15 YPE R SEQ 0168 
| (1) 26162 132757 000100 001221 BITB —MAPTSPOOCSENVM ;;SPOOL MESSAGE TO APT 
| (1) 026170 001405 BEQ 62$ 33NO,GO CHECK FOR CONSOLE 
| (1) 026172 010037 0 620 MOV RO,618 SETUP MESSAGE ADDRESS FOR APT 
(1) 026176 004737 0264 JSR PC.SATY3 5 oot RESSAG GE TO AP 
| (1) 026202 900009 1$:  .WORD i sMESSAGE A DRESS 
(1) 026204 132737 000040 001221 62$:  B1TB #APTCSUP,SENVM F consove SUPPRESSED 
(1) 026212 001003 BNE 60$ cies SKIP TYPE our 
(1) 026214 112046 2$: MOVB (RO) +,=(SP) ::PUSH CHARACTER 0 BE TYPED ONTO STACK 
(1) 026216 001005 BNE 4$ R IF it ish T THE TERMINATOR 
(1) 026220 005726 TST (SP)¢+ aT TERMINATOR POP IT OFF THE STACK 
(1) 026222 012600 60$: MOV (SP)+,RO + : RESTORE 0 
(1) 026224 062716 000002 3$: ADD #2, (SP) S:ADJUST RETURN PC 
(1) 026230 000002 RTI : ;RETURN 
(1) 026232 122716 000011 4$: CMPB #HT, (SP) ::;BRANCH IF <HT> 
(1) 026236 001430 BEQ 
(1) 026240 122716 000200 CMPB #CRLF, (SP) 7;BRANCH IF NOT <CRLF> 
(1) 026244 001006 BNE 5% 
(1) 026246 005726 TST (SP)+ send <CR><LF> EQUIV 
(1) 026250 104401 TYPE z;TYPE A CR AND LF 
(1) 026252 001175 S$CRLF 
(1) 026254 105037 026410 CLRB © SCHARCNT s:CLEAR CHARACTER COUNT 
(1) 6260 000755 8R 23 ::GET NEXT CHARACTER 
(1) 026262 004737 026344 5$: JSR PC .STYPEC ::G0 TYPE THIS CHARACTER 
(1) 026266 123726 001156 6$: CMPBs«SFILLC,(SP)*  ::1S IT TIME FOR FILLER CHARS.? 
(1) 026272 001350 BNE 2$ ::1F NO GO GET NEXT CHA 
(1) 026274 013746 001154 MOV $NULL,-(SP) i3GET TH OF FILLER CWA. * NEEDED 
(1) 026300 105 000001 7$: DECB = s«( SP) DOES A NULL NEED TO BE TYPED? 
(1) 026304 0027 BLT 6$ 3sBR IF wy ‘es THE NULL OF F OF STACK 
(1) 026306 737 026344 JSR PC STYPEC 3360 TYPE A NU 
(1) 026312 105337 026410 DECB  $CHARCNT :D0 NOT COUNT Us ‘A COUNT 
() 026316 000770 BR 7$ : LOOP 
(1) sHORIZONTAL TAB PROCESSOR 
(1) 026320 112716 000040 8$: MOVB (SP) s:REPLACE TAB WITH SPACE 
(1) 026324 004737 026344 9$: JSR oe. $TYPEC ;3TYPE A SPACE 
(1) 026330 132737 000007 026410 BITB #7.$CHARCNT S3BRANCH IF NOT AT 
(1) 026336 001372 BNE $ : STOP 
(1) 026340 005726 TST (SP)+ ‘IpOP SPACE OFF STACK 
(1) 026342 000724 BR 2$ ::GET NEXT CHARACTER 
(1) 026344 105777 152600 STYPEC: TSTB aSTPS S:WAIT UNTIL PRINTER IS READY 
(1) 026350 100375 BPL STYPEC 
(1) 026352 116677 000002 152572 MOVB  2(SP),a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 26360 1227 000015 000002 CMPB #CR,2(SP) 31S CHARACTER A CARRIAGE RETURN? 
(1) 026366 001003 BNE 1$ : 3BRANCH IF NO 
| (1) 026370 105037 026410 CLRB = SCHARCNT SYES==CLEAR CHARACTER COUNT 
(1) 026374 000406 BR STYPEX > FXIT 
(1) 026376 122766 000012 000002 1$: CMPB LF, 2( SP) = {S$ CHARACTER A LINE FEED? 
(1) 026404 901402 BEQ STYPEX BRANCH IF YES 
(1) 026406 10522 INCB (PC) + ;:COUNT THE CHARACTER 
| (1) 026410 000000 SCHARCNT:.WORD 0 *: CHARACTER COUNT STORAGE 
1) 026412 000207 $TYPEX: RTS PC 
| 3745 “SBTTL APT COMMUNICATIONS ROUTINE 
| 
| 
| 
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PLE PRL PPP 


=P row 


026564 004737 026132 
000000 


ee ee et a ee a a a ae a a a ee ee a ae ae a a a Se we ae 
w 
—~ 
—S 
Ss 


026572 105737 026660 
001416 

tHe Ld 001220 

005737 001200 


CR. PR PR PR BPR PRP ROR ORO ROR PARLOR OAL ORB PALA LP PP PPP PPR PPR PPP PPP PP Pe PP Pe Pe Fe 


Qwwwwwwvuwvuwvvvuuvuuvuvwuyuvvww 
[=] 
3 
w 
So 
—_ 


a 
~ 


Oo6e23 119737 000001 d26656 


$ 006« 

if 112737 000001 026660 
40 

42 


37 000001 001220 
37 000100 001221 


000004 
accel? 062766 000002 000004 


0 
026534 012737 000004 001200 


0004 
026544 017637 000004 026570 
02655 B66 766 000002 000004 


001375 
026614 017637 000004 001202 
gether peeree 000002 000004 
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APT COMMUNICATIONS ROUTINE 


RAAATAAAAAAAAAOERAAAAAEKRAAAAASAAHAAAAARARARAAAAAAAAAAAAARARAAAAAARAEE 
$itvi: Move at SFFLG :;TO REPORT FATAL ERROR 
SATY3: MOVB #1 SAFLG ::T0 TYPE A MESSAGE 


SATY4: MOVB #1,SFFLG 33TO ONLY REPORT FATAL ERROR 


SATYC 
MOV RO,-(SP) 3 PUSH RO ON STACK 
MOV R1,-(SP) :PUSH R1 ON STA 
TSTB 0s SMFLG 3 3 SHOULD TYPE A MESSAGE? 
BEQ & F NOT: 
cHPe #APTENV, SENV {OPERATING UNDER APT? 
8178 #APTSPOOL, SENVM $¢ SHOULD SPOOL MESSAGES? 
MOV a4(SP),RO 3:GET MESSAGE ADOR. 
ADD #2,4(SP) “BUMP RETURN ADDR. 
18: TST SMSGTYPE :3SEE IF “BONE W/ LAST XMISSION? 
BNE 1$ TIF NOT: WAIT 
MOV RO, SMSGAD :sPUT ADDR IN MAILBOX 
2$: STB aR (RO) + SFIND END OF MESSAGE 
SUB SMSGAD,RO :;SUB START OF MESSAGE 
ASR RO 33GET MESSAGE <NGTH IN WORDS 
MOV RO, SMSGLGT [PUT LENGTH IN MAILBOX 
NOV #4. SMSGTYPE [:TELL APT TO TAKE MSG. 
3$: MOV a4(SP),4$ 3;PUT MSG ADDR IN JSR LINKAGE 
ADD #2 4 (SP) R TURN N ADDRESS 
MOV 177776, -(SP) PUSH 199776 ON STACK 
JSR PC, STYPE *:CALL TYPE MACRO 
4s: “WORD 0 
10$: STB  S$FFLG :;SHOULD REPORT FATAL ERROR? 
BEQ 12$ ::IF NOT: BR 
TST SENV : | RUNNING UNDER APT? 


12$ z1F NOT: BR 
118: TST eres : FINISHED uatt MESSAGE? 
@4(SP),SFATAL ;:GET ERROR & 
#2,4(SP) 


D 
INC SMSGTYPE 
12$: CLRB SFFLG 


BUMP RETURN ADDR. 
Sr TELL abi TO TAKE ERROR 
T:CLEAR FATAL FLAG 


CLRB SLFLG 3;CLEAR L 
CLRB SMFLG 7:CLEAR MESSAGE FLAG 
MOV (SP)+,R1 : sPOP STACK INTO R1 
MOV (SP)+,RO :;POP STACK INTO RO 
RTS PC ‘tt URN 

SMFLG: .BYTE 0 :sMESSG. FLAG 

SLFLG: .BYTE 0 3;LO0G FLAG 

SFFLG: y LS 0 s3FATAL FLAG 

APTSIZE=300-" 

TENV=001 
APTSPOOL=100 
APTCSUP=040 


-SBTTL POWER DOWN AND UP ROUTINES 


SEQ 0169 


mn i nn 
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— 


SYA AAA AAAE PPR PR PR PR BPR PPR PPR PAPA LPPR PR LPP PAPA LP LPP LPL LP Pn FF 
Bk td et at at ot ot ot es WWIII o_o ot 2 WII Ss 
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027101 


a os 


027026 
000340 


027032 
152154 


026662 
000340 
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000024 
000026 


000024 


000024 


000024 


000026 


051101 
040440 
040440 
051105 
052514 

012 


81 
MACY11 Re poy nam Fe 09: 38 PAGE 3-149 
POWER DOWN AND UP ROU SEQ 0170 


RARAAAAAEAAAAAAAAAAEAAAAAAAAKAAAAAAARARAAAAAAAAAAAAAAAAAARAAAARATE 


jPoweR DOWN ROUTINE 


$PURDN: MOV #SILLUP ,a#PURVEC ;;SET FOR FAST UP 
MOV #340, a#PWRVEC+2 ;:PRIO:7 
MOV RO,-(SP) +:PUSH RO ON STACK 
MOV R1,-(SP) °:PUSH R1 ON STACK 
MOV R2,°(SP) ::PUSH R2 ON STACK , 
MOV R3,-(SP) +:PUSH R3 ON STACK 
MOV R4,-(SP) ::PUSH R& ON STACK 
MOV RS,-(SP) +:PUSH RS ON STACK 
MOV aswr,-(SP) ::PUSH @SWR ON STACK 
MOV SP, SSAVR6 7: SAVE' SP 
MOV #SPWRUP ,a#PWRVEC :;SET UP VECTOR 
BR 72 7 HANG UP 
FRRARARAAAAAAARERAAAEAAAAEAA AA AAAAAAAAAAAAAAARAARARAARAAARARAAAAARE 
“POWER UP ROUTINE 
SPURUP: MOV #SILLUP, aaPuRVEC 32SET FOR FAST DOWN 
MOV SSAVR6,S GET S 
CLR SSAVRG SIWAIT LOOP FOR THE TTY 
1$: INC SSAVRO6 ::WAIT FOR THE INC 
BNE 1$ ::0F WORD 
MOV (SP)+,aSWR [:POP STACK INTO @SWR 
MOV (SP)+,R5 ::POP STACK INTO R5 
MOV (SP)+,R4 ::POP STACK INTO R4 
MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP) +, R2 ::POP STACK INTO R2 
MOV (SP)+,R1 33POP STACK INTO Ri 
MOV ($P)+.RO :POP STACK INTO RO 
MOV #SPWRON, @#PWRVEC :;SET UP THE POWER DOWN VECTOR 
MOV #340 ,a#PURVEC+2 ;:PRIO:7 
TYPE ;:REPORT THE POWER FAILURE 
SPWRMG: .WORD PWRMSG [POWER FAIL MESSAGE POINTER 
MOV (Pe). (SP) S:RESTART AT START 
SPWRAD: WORD START [:RESTART ADDRESS 
SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
BR .-2 ' BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 S PUT THE SP HERE 
PWRMSG: .BYTE 15,12 
"ASCII /RESTARTING AFTER A POWER FAILURE/ 
.BYTE 15,12,12,0 


-EVEN 
-SBTTL TRAP DECODER 


peeteeeeeeeereeeeeeereereeeeereeeeeeeeteeaeegeeeaeeeeeeregageeese 


TSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘TRAP’ INSTRUCTION 
S*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


ee: ] 
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DECODER 


CRLPGC.P11 18-AUG-80 09:1 TRAP SEQ 0171 
(1) s*O0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
3 :*GO0 TO THAT ROUTINE. 
(1) 027102 010046 STRAP: MOV RO,-(SP) 7:SAVE RO 
(1) 027104 016600 000002 MOV 2(§P) ,RO °:GET TRAP ADDRESS 
(1) 027110 005740 TST =(RO [BACKUP BY 
(1) 027112 .111000 MOVB (RO) ,RO 3:GET 2IGHT BYTE OF TRAP 
(1) 027114 006300 ASL RG :;POSITION FOR INDEXING 
(1) 027116 016000 027136 MOV STRPADC(RO) ,RO :; INDEX TO TABLE 
(1) 027122 000200 RTS RO ::G0 TO ROUTINE 
(1) , 
ne 2;THIS IS USE TO HANDLE THE ‘’GETPRI'’ MACRO 
(1) 027124 011646 STRAP2: MOV (SP) ,-(SP) s:MOVE THE PC DOWN 
(1) 027126 016666 000004 000002 MOV 4(SP),2¢SP) ::MOVE THE PSW DOWN 
HH 027134 000002 RTI s RESTORE THE PSW 
3} -SBTTL TRAP TABLE . 
(3) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
‘3 :*BY THE ‘‘TRAP’’ INSTRUCTION. 
(3) 3 ROUTINE 
(3) 027136 027124 S$TRPAD: .WORD $TRAP2 
(3) 027140 026132 STYPE 3;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
(3) 027142 024100 STYPOC ;;CALL=TYPOC Lawad $34 ope st TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 027144 024054 STYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 027146 024114 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
7 027150 0246 STYPDS ;;CALL=TYPOS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
ie 027152 025426 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
(3) 027154 025356 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 
(3) 027156 02564 SRDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
(3) 027160 025760 SRDLIN ;;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
(3) 027162 025254 SRDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
3752 027164 023700 10TRD 3; CALL=10TT TRAP+13(104413) 
3753 027166 005015 046103 041517 EMI: VASCIZ <15><12>/CLOCKA SR FUNCTION ERROR/ 
027174 040513 051440 020122 
27202 052506 041516 044524 
027210 047117 042440 051122 
027216 051117 
3754 027221 015 041412 047514 EM2: eASCIZ <15><12>/CLOCKA SR DATA ERROR/ 
027226 0465503 020101 051123 
0272 042040 052101 020101 
02724 1105 047598 900122 
3755 0272 eat} 0461 04151 EMS: eASCIZ <15><12>/CLOCKA BR DATA ERROR/ 
037256 04051 1040 920122 
027. 0504 040524 04244 
02 051122 051117 900 
3756 02 4} 1412 0467514 EM4: .ASCIZ <15><12>/CLOCKA CR DATA ERROR/ 
027 045503 201 1 051103 
027312 042040 052101 020101 
27 051105 047522 000122 





or | 
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CRLPGC .P11 18-AUG-80 09:15 TRAP TABLE SEQ 0172 
3757 oeraee 005015 046103 041517 EMS: eASCIZ <15><12>/CLOCKB SR DATA ERROR/ \ 
027 061113 051440 020122 i 
027 040504 83038 042440 
027350 05112 51117 S44 
3758 02735 } Bates 047514 EM6: eASCIZ <15><12>/CLOCKB BR DATA ERROR/ 
027 045503 020102 051102 
027370 042040 97619) 020101 
027376 051105 04 $68 B00 e¢ 
3759 027404 pote Ht 046105 041517 EM7: eASCIZ <15><12>/CLOCKB CR DATA ERROR/ 
027412 041113 041440 020122 
27420 040504 040524 042440 
027426 051122 051117 000 
3760 027433 015 042012 040525 EM10: .ASCIZ <15><12>/DUAL ADDRESS ERROR/ 
027440 020114 042101 051104 
027446 051505 020123 051105 
027454 047522 000122 
3761 027460 005015 046103 041517 EM11: .ASCIZ <15><12>#CLOCK A COUNT ERROR # 
027466 020113 020101 047503 
027474 047125 020124 051105 
027502 047522 020122 000 
3762 027507 015 041412 047514 EM12: .ASCIZ <15><12>#CLOCK A COUNT FUNCTION FRROR # 
027514 045503 040440 041440 
027522 052517 052116 043040 
27530 047125 052103 047511 
027536 020116 051105 047522 
027544 020122 000 
3763 027547 041412 047514 EM14: .ASCIZ <15><12>#CLOCK B COUNT FUNCTION ERROR # 
027554 0455 ; Be 30e8 041440 
562 05251 52116 043040 
027570 0471 052103 047511 
027576 020116 051105 047522 
027604 0201 000 
3704 027607 0 041412 047514 EM15: .ASCIZ <15><12>#CLOCK B COUNT ERROR # 
027614 045503 041040 041440 
7622 052517 052116 042440 
027630 051122 051117 000040 
3765 027636 005015 046103 041517 EM16: .ASCIZ <15><12>#CLOCK A INTERRUPT ERROR # 
027644 020113 020101 047171 
027652 042524 051122 050125 
020126 051105 047522 
027666 Ase 000 
3766 077671 015 041412 047514 EMI17: .ASCIZ <15><12>#CLOCK B INTERRUPT ERROR # 
027676 045503 041040 044440 
704 052116 051105 052522 
027712 oo1e9 042440 051122 
027720 05111 aortas 
3767 027726 005015 046103 041517 EM20: .ASCIZ <15><12>#CLOCK A REPEATABILITY ERROR # 
02 020113 bg 101 042522 
027740 042520 101 041101 
027746 Beets 3 111 020131 
pyibee: 51105 522 020122 
3768 02776 ? 041412 047514 EM23: .ASCIZ <15><12>#CLOCK B REPEATABILITY ERROR # 
027770 5503 041040 051040 
027776 050105 040505 040524 
044502 044514 054524 





ar | 
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CRLPGC.P11 18-AUG-80 09:15 TRAP TABLE 


a ee — ~- 


F 
SEQ 0173 i 
| 


0 00004 
3769 tra: 005015 046103 ge EM26:  .ASCIZ <15><12>#CLOCK ADDRESSING ERROR# 


= SS SS = 


3770 


3771 030053 042412 ores DH1: eASCIZ <15><12>#ERRPC = ASR WAS S/B4 






o 
S 
3 
3 


3772 030111 015 042412 051122 DHS: eASCIZ <15><12>#ERRPC ABR WAS $/B4 
2004 0440 


0 
3773 030147 015 0424612 051122 DH4: eASCIZ <15><12>#ERRPC ACR WAS $/B4 
030154 0440 
0301 0 0 
030170 053440 051501 020040 
02004 
030204 
3774 030205 015 eels 051122 DHS: eASCIZ <15><12>#ERRPC BSR WAS S/Ba 
40 
030226 053440 051501 020040 
0 2004 057 


37/5 030243 015 042412 051122 DHé6: eASCIZ <15><12>#ERRPC BBR WAS S/B4 
030250 041520 020040 041040 
030256 051102 020040 020040 
030264 053440 051501 0040 
030272 020040 051440 041057 


—- - - ee eee ii i i i i i ee ee ee ee ee ee ee ee eee ee ee Se eS SS = 


030300 000 
3776 030301 015 042412 051122 DH7: eASCIZ <15><12>#ERRPC BCR WAS $/B4 
030306 520 020040 041040 
030314 051103 020040 020040 
030322 053440 051501 020040 
tat ted sco 051440 041057 
3777 030337 015 042412 051122 DH10: .ASCII <15><12>/ERROR GOOD BAD GOOD DATA READ FROM/ 
030344 051117 020040 043440 
030352 047517 020104 020040 
030360 041040 042101 020040 
030366 020040 043440 047517 
030374 020104 020040 042040 
030402 052101 be one 042522 
toad saad +} 3040 047522 
3778 030417 015 020012 050040 eASCIZ <15><12>/ PC ADDR ADDR DATA DUAL ADDRESS/ 
030424 020103 020040 040440 
030432 042104 020122 020040 
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ICRLPGC.P11 = 18-AUG-80 09:15 TRAP TABLE 


! 
i 
| 


SEQ 0174 


030440 040440 042104 020122 
030446 020040 04 040 052101 
030454 020101 020040 042040 
030462 040525 020114 042101 
030470 051104 051505 000123 
3779 030476 005015 051105 050122 DH12: .ASCIZ <15><12>#ERRPC ASR # 
030504 020103 020040 051501 
03051 020122 000 
3780 03051 015 042612 051122 DH14:  .ASCIZ <15><12>#ERRPC BSR# 
030522 041520 020040 041040 
030530 051123 000 | 
3781 030533 015 042412 051122 DH20: -ASCIZ <15><12>#ERRPC ASR 2NDCNT 1STCNT # 
030540 041520 0200460 040440 | 
546 051123 020040 020040 | 
030554 031040 042116 047103 
562 020124 030440 052123 | 
030570 047103 020124 000 | 
3782 030575 015 042412 051122 DH23: -ASCIZ <15><12>#ERRPC BSR 2NDCNT 1STCNT # 
030602 041520 020040 041040 | 
030610 051123 020040 020040 
030616 031040 042116 047103 
930624 020124 030440 052123 
030632 047103 020124 000 
3783 030637 015 042412 051122 DH26: eASCIZ <15><12>#ERRPC CLOCK ADDR.& 
030644 041520 020040 041440 
030652 047514 045503 040440 
~. 030660 042104 027122 000 
3785 030666 EVEN | 
3787 030666 001116 001324 001126 DT1:  .WORD SERRPC,ASR,SBDDAT,SGDDAT,0 
030674 001124 000000 
3768 030700 001116 001326 001126 ODT3: . WORD SERRPC, ABR, SBDDAT,SGDDAT,0 
030706 001124 000000 
3789 030712 001116 001330 001126 ODT4: ~ WORD SERRPC, ACR, SBDDAT .SGDDAT 0 
030720 001124 000000 : | 
3790 030724 001116 001332 001126 DTS: ~ WORD SERRPC BSR, SBDDAT , SGDDAT 0 
030732 001124 000000 
3791 030736 001116 001334 001126 DTé6: ~ WORD SERRPC BBR, SBDDAT ,SGDDAT 0 
030744 001124 000000 | 
3792 0307 001116 001336 001126 DT7: .- WORD SERRPC BCR, SBDDAT ,SGDDAT ,0 } 
030756 001124 000000 | 
3793 0307 001116 001120 001122 D110: ~ WORD SERRPC ,SGDADR , SBDADR , SGDDAT , SBDDAT ,0 
030770 001124 001126 000000 
3794 030776 001116 001324 000000 DT12: .WORD SERRPC.ASR.O 
, 3795 031004 001116 001332 000000 DT14: .WORD SERRPC.BSR.O 
3796 031012 001116 001330 001124 D121: .WORD S$ERRPC.ACR,S$GDDAT,STMPO,0 | 
031020 001164 
3797 051024 001116 itt 001126 D122:  .WORD SERRPC,ACR,SBDDAT,STMPO,0 | 
3798 031056 001116 001336 001124 D124: .WORD SERRPC,BCR,SGDDAT,STMPO,0 | 
3799 031050 001116 001 001126 DT25: .WORD  SERRPC,BCR,SBDDAT,STMPO,0 
031056 001164 000000 
031062 001116 001164 000000 o126 WORD  SERRPC,STMPO,0 
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031670 


031074 
031074 


031100 


mN NO 
&rF ofonrn 


18-AUG-80 09:15 


000000 000000 


013746 000004 
000413 


012737 031126 000004 
5237 170000 


00 
104401 031122 
000401 


7 000004 
005037 031562 
031564 

052777 040000 


010146 
005001 
005201 


150462 


- —— 
MACY11 306(1063) 24-OCT-80 09: 38 PAGE 3-154 
TRAP TABLE 


DFO: 


$LPAI: 


; 3658: 
648: 


30$: 
31$: 


1$: 


23: 


-WORD 0,0 


eTHIS SUB CODE IS USED 10 ~~ LPA-11 
:*FIRST WE WILL LOAD ee Ae es re OK 

; *NEXT WE WILL INIT BOTH UPROCESS ORs 

;*THEN WE WILL LOAD DEVICE TABLE IN SLAVE UP. 

is THE ORDER OF LOAD IS DETERMINED BY THE USER. 


fe CALL= JSR R5,SLPAI 

z¢ -WORD 0 sADDR. OF DEVICE ADDRESS. 
3* ROUTINES REQUIRED:  .LOADLP 

3* PROGRAMS REQUIRED: DRLPX2 

;* 

:* sRETURNS WITH SAERR=1 IF SLAVE 

i* :MICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 
- 


MOV 4,-(SP) 

BR 31$ FIELD DOES NOT HAVE A BUS SWITCH TO 

WORRY grok SO WE WILL pot ge pape 

:BRANCH AR ROUD THE NEXT CODE THAT 

s;WORKS BASED ON A BUS SWITCH. 

scees LEFT IN HERE FOR IN HOUSE 
PERSONAL WHO MAY PATCH THIS BRANCH 

SINSTRUCTION TO A <NOP> OCTAL <240> 

7IN ORDER TO RUN PROGRAM WITH A SWITCH. 


sNOTE THIS ‘“SWITCH’’ IS A PIECE » INHOUSE 
TEST EQUIPMENT ONLY IT CONNECTS 

THE UNIBUS TO THE 1/0 BUS FOR 

:CERTAIN TESTING. 


zz TYPE ASCIZ STRING 
BR 64$ 3:GET OVER THE ASCIZ 
-ASCIZ = <7>#8 


BR 31$ 
CMP (SP)+,(SP)+ 


MOV (SP)+,4 cALL THIS JUNK MUST BE REMOVED! 


CLR SAERR 
JSR R5,SLOAD ;LOAD MICRO-CODE. 
WORD  DRLPX2 sFILE ‘DRLPX2.0BU"* 


BIS #B1T14,aKMADO ;ISSUE KMC+DMC INIT. 


"HANGS" HERE THEN KMC-11 ERROR. 
MOV nee 


INC R1 STALL FOR DMC-UP 


SEQ 0175 


co 


f ee 


LPA-Kut Ik DIAGNOSTIC MD-11-CRLPG-C 


‘CRLPGC. P11 


1 
| =) 031168 


031216 
031222 


031224 


bs1ee6 
031 


031246 


031250 


03 
031370 
031376 


18-AUG-80 


032777 
001401 


104000 
012777 
004537 
104000 


000774 


122777 
001370 
122777 
001001 


104000 


117737 


™ 
— 
fernow 


= 
= 
~ 

ANNE NOS 


SNe NNN Sew 
eases 


09:15 


104000 


000040 


000004 
032474 


000377 
000377 


150372 
177777 


177777 
031300 
031530 


000 
031372 


150444 


150432 


150424 


150406 
150462 


031530 


031530 


150220 


258: 


3$: 
4$: 


35$: 


33678: 


66$: 


BR 
>:69$: © 


68s: 
5$: 
6$: 


MACY11 306(1063) 
TRAP TABLE 


BNE 
MOV 
INCB 
BNE 


BIT 
BEQ 


ERROR 
MOV 
JSR 
ERROR 


H 14 
24-OCT-80 09:38 PAGE 3-155 


2$ 
» ihsimeaaite amnmenti 


25% 


#B1TS,aKMADO 
3$ 


#4 ,aKMAD2 
RS, $TOUT 


4% 


#377 ,aKMAD2 
#377 ,aKMAD4 
35$ 


@KMAD4 ,11$ 
#-1 


5$ 
#1 
5$ 
ers 


SLAVE READY? (READING IPBM SR) 
sFATAL LPA-11 ERROR SLAVE NOT READY. 


;READ FAST PATH 

;*TOUT-CHECK FOR TIMEOUT 
At gy ERROR 

3 /WE FAILED i HOW. 


$7 WOULD MAKE US HANG" HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
WAIT TILL KMC DONE COMMAND. 


:1F FAST PATH=377 THEN ERROR. 


; IPBM ERROR (SLAVE SIDE) 
;YOU MUST RUN IPBM DIAGNOSTIC. 


3GET THE VERSION NUMBER FROM DMC-11 


2s TYPE ASCIZ STRING 
T OVER THE ASCIZ 


66% GE 
<200>"'8200-YC (DMC) MICROCODE VERSION NUMBER = 


11$,-(SP) 


3: TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


sDAC CODE FOR SLAVE. 
:GET NEXT DEVICE ADDR. 
7 TERM REACHED? 


sFIFO DATA 

s ISSUE SEND 

:SEND LOW BYTE OF DEVICE ADDR TO SLAVE. 
: ISSUE SEND 


;SET RUN, AND ENABLE ARBITRATION. 


SEQ 0176 


rocoto 


oer ot DIAGNOSTIC att 


RLPGC.P11 


LBP PR PR PR PR PR PR OR PA LL Le ee ee ee ey my FF Fm 
RMP NINN NINN WWW WWW WWW rrr errr 
ee ee et a a a a a ee ee ee ee ae a a ae ae 


(2) 


031442 
031446 
031452 


031470 
031470 


031474 


031476 


031514 
031516 
031522 
031524 
031526 
031530 
031532 
031540 
031540 


031544 


031546 


031550 


112177 
004737 


032777 
001374 
112777 


004537 
104000 


000774 


122777 
0 


112777 
004537 
104000 


000774 
122777 
001370 


000000 


18-AUG-80 09:1 


150 4 
031532 
000002 1 
000002 1 


032474 


000377 1 
150132 


031562 
000003 1 


032474 


000377 1 


50156 7$: 
50152 
8$: 


50134 


10$: 
11$: 


50102 20$: 
21$: 


50064 


SAERR: 


MACY11 306(1063) 
TRAP TABLE 


MOVB = (R1) +, @KMAD4 
JSR PC,208 


BIT  pilacammamaee 
MOVB #2,aKMAD2 


JSR RS, STOUT 


BR 8$ 


CMPB il emcam 
TSTB @KMAD4 
6$ 


BEQ 

INC SAERR 
CLR -(1) 
MOV (SP)+,R1 
RTS R5 

-WORD 0 


MOVB #3,aKMAD2 
JSR R5, $TOUT 
ERROR 


BR 218 


CMPB #377, @KMAD2 
BN 218 


E 
RTS PC 
-WORD 0 


3* 
z*THIS SUB CODE USED TO 
;@ CALL = JSR 


24-OCT-80" 09: 38 PAGE 3-156 


;SEND HIGH BYTE OF DEVICE ADDR. TO SLAVE. 


sWAIT FOR FIFO DATA 
=1 NO DATA. =0 DATA. 
TREAD FIFO. 


z*TOUT-CHECK FOR TIMEOUT 


;/TIME-OUT ERROR 

:/WE FAILED TO se 
;/CURRENT OPERATION 
:/CONTINUES IN THIS LOOP 
;/WOULD MAKE US SHANG" HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;WAIT FOR READ. 


sWAS A ZERO ah on 

sYES GET NEXT 

SLAVE WILL TRETURN” CODE 0 IF 

[DEV PRESENT ELSE 

EXIT SAERR=1 IF SLAVE GIVES ERROR. 
:GET RID OF REFERENCE TO BAD ADDR. 


;RETURN ALL ADDR. CHECKED. 


sHOLDS DAC CODE PLUS OFFSET 
;TO SLAVES ADOR. TABLE. 


ISSUE FIFO WRITE 
;~TOUT-CHECK FOR TIMEOUT 


:/TIME-OUT ERROR 

:/WE FAILED TO COMPLETE 
:/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
;/WOULD MAKE US ‘HANG’ HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
SKMC CODE WILL RETURN A ''377"" 
[WHEN DONE COMMAND. 


770 IF ADDR. LIST OK,=1 IF BAD. 


LOAD MICRO-CODE INTO LPA-11. 
R5,SLOAD 


sADDR. OF MICRO CODE. 


SEQ 0177 
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CRLPGC.P11 18-AUG-80 09:15 SEQ 0178 


(2) 3* sRETURNS HERE 

(3) s@ NOTE: MICRO CODE FILE MUST END IN <1 DATA. 
;* 

(2) 

(2) 031564 010446 $LOAD: MOV R4,-(SP) SAVE R4. 

(2) 031566 010046 MOV RO,-(SP) SAVE RO. 

(2) 031570 012500 1$: MOV (5)+,R0 3GET PROG. ADDR. 

(2) 031572 005077 150040 CLR @KMADO CLEAR 

(2) 031576 005077 150044 CLR @KMAD4 :CLEAR CRAM ADDR. 

(2) 031602 052777 002000 150026 2$: BIS #2000 ,aKMAD0 :SELECT CRAM. 

(2) 031610 012077 150036 MOV (0)+,@KMAD6 sWRITE DATA. 

(2) 031614 052777 020000 150014 BIS #20060, akMADd0 sSET CRAM WRITE 

(2) 031622 005077 150010 CLR akMADO sDISABLE CRAM. 

(2) 031626 005277 150014 INC @KMAD4 sUPDATE CRAM ADDR. 

(2) 031632 021027 177777 CMP (0) ,#-1 3ALL DONE? 

(2) 031636 001361 BNE 2$ 3NO LOOP. 

(2) 031640 005077 150002 CLR @KMAD4 sCLEAR CRAM ADDR. 

+s} 031644 016500 177776 MOV -2(5),R0 :GET MICRO CODE ADDR. 

(2) 031650 052777 002000 147760 3%: BIS #2000 ,aKMADO sSELECT CRAM 

(2) 031656 022077 147770 CMP (RO) +, @KMAD6 sDATA OK? 

(2) 031662 001013 BNE 5$ sNO - REPORT AN ERROR. 

(2) 021027 177777 CMP (0) ,#-1 ;ALL DONE? 

(2) 031670 001405 BEQ 4$ sYES - EXIT 

(2) 031672 005077 147740 CLR @kMADO 3NO - DESELECT CRAM. 

(2) 031676 005277 147744 INC @KMAD4 sUPDATE CRAM ADDR. 

ts} 031702 000762 BR 3$ 

(2) 031704 012600 4$: MOV (SP)+,RO sRESTORE RO 

(2) 031706 012604 MOV (SP)+,R4 sRESTORE R4 

3 031710 000205 RTS RS sEXIT 

(z) 031712 5$: :COME HERE ON LOAD ERROR 

(2) 031712 005745 TST -(5) 

(2) 031714 105204 INCB R4 :UPDATE ERROR COUNTER. 

(2) 031716 100324 BPL 1$ :1F NOT TOO MANY, TRY AGAIN. 

(2) 031720 000000 HALT sMICRO CODE LOAD ERROR. 

(2) sKMC-11 FAULT. YOU COULD TRY 

(2) 031722 000722 BR 1$ 3T0 PRESS CONTINUE TO GIVE IT 

(2) ;ANOTHER CHANCE, BUT I DOUBT 

(2) :THAT THAT WOULD WORK. SINCE I'VE 

(2) sALREADY GIVEN IT 177 (OCTAL) CHANCES. 

a sTRY RUNNING THE KMC-11 DIAGNOSTIC. 

3 

. s*THIS ROUTINE ISSUES A WRITE COMMAND TO THE LPA-11 
;* 

(2) st CALL = JSR RS, STLKW 

(2) it -WORD 0 OFFSET OF DEVICE ADDR. 

cg) 3* -WORD 0 DATA TO BE WRITTEN 

(2) 3% 

(2) 031724 010046 STLKW: MOV RO,-(SP) sSAVE RO 

(2) 031726 012500 MOV (5)+,R0 3GET DEVICE OFFSET 

(2) 031730 052700 000340 BIS #340,R0 ;ADD WRITE CODE. 

(2) 031734 004737 032206 JSR PC, SLPW sWAIT FOR FAST PATH READY 
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TRAP TABLE 


CRLPGC.P11 18=AUG-80 09:15 SEQ 0179 
(2) 031740 010037 032032 MOV RO,W1 
(2) 031744 010077 147676 MOV RO, @KMAD4 
(2) 031750 112777 000005 147664 MOVB #5 ,@KMAD2 ISSUE FAST PATH WRITE 
031756 004737 032206 JSR PC, SLPW sWAIT FOR RDY 


(2 
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te 
G 
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(5) ,We 
112577 147654 MOVB (5)+*,@KMAD4 sWRITE LOW BYTE DATA. 
oars 112777 000005 147642 MOVB #5 ,@KMAD2 ;FP WRITE 


(5) ,W3 
2577 (5)+, @KMAD4 sWRITE HIGH BYTE 
12777 000005 147620 MOVB # 2 
032022 004737 032206 JSR Fg 
0320 R sEXIT DONE. 
032032 000000 Wi: 
0320 : 
032036 000000 W3: 
3* 
z*THIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 
3* 
s# CALL = JSR R5,S$TLKR 
3° WORD 
s* ;RETURNS HERE 
:*DATA IN WORD SDATR 
* 


sOFFSET OF DEVICE 


032040 010046 STLKR: MOV RO,-(SP) sSAVE RO 
032042 012500 MOV (5)+,R0 :GET OFFSET 
032044 000300 sADD READ CODE 
032050 004737 032206 JSR PC, SLPW sWAIT TILL READY 
032054 110077 147566 MOVB RO, @KMAD4 
112777 000005 147554 MOVB #5,,@KMAD2 ISSUE WRITE FP 
032066 004737 032206 JSR PC, SLPW 
oaso76 010037 032202 a MOV RO,RD1 
032076 004537 032474 JSR R5, STOUT s~TOUT-CHECK FOR TIMEOUT 
032102 104000 ERROR :/TIME-OUT ERRO 


R 
3/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
;/WOULD MAKE US ‘HANG’ HERE 
032104 000774 BR 1$ 


;/RETURNS HERE-FROM-TIMED OUT. 
+s f4 eg 000040 147522 a Sots gumas sFAST PATH GOT DATA? 


112777 000004 147516 MOVB ~ #4,a@KMAD2 sISSUE FAST PATH READ 
032206 J PC, $LPW 
147512 032204 ad MOVB  aKMAD4,$DATR GET LOW BYTE 

004537 032474 ; JSR RS, $TOUT :-TOUT-CHECK FOR TIMEOUT 


oooooeoco 
RRRRRRS 
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RLPGC.P11 18-AUG-80 09:15 TRAP TABLE SEQ 0180 
(3) 032142 104000 ERROR ;/TIME-OUT ERROR 
(3) : :/WE FAILED TO COMPLETE 
(3) ;/CURRENT OPERATION. 
(3) :/7CONTINUES IN THIS LOOP 
th ;/WOULD MAKE US HANG" HERE 
of 032144 000774 BR 2s 
(3) ; /RETURNS ¥ wots OuT. 
(2) 032146 032777 000040 147462 BIT #B1TS ,@KMADO ;FAST PATH READY 
032154 001370 BNE 2$ 


1 
032156 112777 000004 147456 MOVB #4 ,QKMAD2 ISSUE FAST PATH READ 
032164 004737 032206 JSR PC ,SLPW 
032170 117737 147452 032205 MOVB @KMAD4 ,SDATR*+1 SAVE HIGH BYTE 
032176 012600 MOV (SP)+,RO 
032200 000205 RTS R5 
032202 000000 RD1: 0 
032204 000000 SDATR: .WORD 0 


STHIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
zAS FAST PATH TO BE READ. 


(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 3 

tH CALL = JSR PC, SLPW 

(2) ‘ ZIT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 
@) ;THE MICRO-PROCESSORS AND REPORT AN ERROR, THEN HALT. 
(2) 

(2) 032206 010146 $SLPW: MOV R1,-(SP) sSAVE R1 

(2) 032210 005001 CLR R1 

(2) 032212 122777 000377 147422 1S: CMPB  —s- #377, , @KMAD2 :FINISHED INSTRUCTION? 
(2) 032220 001403 BEQ 2$ 

(2) 032222 005201 INC R1 :TIME OUT? 

(2) 032224 001372 BNE 1$ 

(2) 032226 000411 BR 10$ 

(2) 032230 032777 000020 147400 2s: BIT #BIT4,@KMADO =: FAST PATH READ? 

(2) 032236 001403 BEQ 3$ 

(2) 032240 005201 INC R1 :NO - TIME OUT? 

(2) 032242 001372 BNE 2$ 

(2) 032244 000402 BR 10$ :YES - REPORT AN ERROR . 
(2) 032246 012601 3$: MOV (SP)+,R1 :RESTORE R1 

(2) 032250 000207 RTS PC EXIT 

(2) 032252 10$: 

(3) 032252 104401 032260 TYPE 65$ s: TYPE ASCIZ STRING 
(3) 032256 000407 BR 64$ *:GET OVER THE ASCIZ 
(3) 37658: .ASCIZ <200>#LPA-11 FAULT# 

(3) 032276 64s: 

(2) 032276 000000 11$: HALT sLPA-11 FAULT RUN LPA-11 
(2) 032300 000776 BR 11$ *DIAGNOSTICS. 

(2) 

(2) 


rr 
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CRLPGC .P11 18-AUG-80 09:15 SEQ 0181 
(2) ;* 
(2) s*THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE TO 
i$) sen DEVICE ADDRESS ON THE 1/0 BUSS FOR WRITE ONLY. 
2) [* FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 
2) 3* BEFORE. IF NOT WE HAVE TO INITIALIZE THE LPA WITH 
3* THAT ADDRESS. 
3* WHEN THE ADDR. IS KNOWN BY THE LPA, DO THE OUTPUT BY 
3* STLKW 
3% 
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032302 010046 SOUTLP: MOV RO,-(SP) sSAVE RO 
032304 010146 MOV R1,-(SP) sSAVE R1 


oreryy 001664 MOV | hai ;PROGRAM DEFINED LIST. 
032314 005710 1$: TST (0) ; TERMINATOR REACHED? 


10$ sYES NEXT STEP. 
032320 027520 000000 CMP tae sMATCH WITH ADDR IN LIST? 


032332 010137 032350 2$: MOV 7. sSAVE OFFSET, DEVICE KNOWN. 


005725 
032340 013537 032352 MOV a(5)+,4$ ;GET DATA TO BE WRITTEN 
004537 031724 JSR R5,STLKW 300 WRITE 
sDEVICE OFFSE 


35 : -WORD 0 T 
b353e5 $00090 4$: peg 0 ;DATA TO BE WRITTEN. 


000205 R5 
032362 017520 000000 108: MOV a(s),(0)+ | SAVE ADDR. 
032366 005010 (0) 
032370 004537 031074 JSR RS,$LPAI 
001664 -WORD .DVLS 
032376 000755 BR 2s 
3% 
:*THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
:*TO A DEVICE ADDR. ON THE I/O BUSS FOR READ ONLY. 
3% 
s*FIRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN 
s*USED BEFORE. IF NOT, WE HAVE TO INITIALIZE THE LPA 


s*WITH THE NEW ADDR. 
be ay ADDR 1S KNOWN WE CAN DO OUTPUT THROUGH 


#8 

se CALL THROUGH MOVE! DATA,ADDR. 

38 WHICH EQUALS: 

7* JSR RS, SINLP 

7* WORD XX ADDR OF DEVICE 


* -WORD YY ADDR TO STORE READ DATA. 


032400 010046 SINLP: MOV RO,-(SP) sSAVE RO 
032402 010146 MOV R1,-(SP) sSAVE R1 


POPOPOPOPOPOPUNPDPUPD POPYNOPOPUPUIDINONINYIPIR: POPININIPININIPY PY POMP NPY PY PY PY PEfPof~ye nono fn rerornfn” > 


forge 

ee et ee at et a et ee et a et ee ee a a a I SI YS YS SY Iw Ye ea 4 
o 
Cc 
» 
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CRLPGC.P11 18-AUG-80 09:15 TRAP TABLE SEQ 0182 

(2) 0532404 012700 001664 MOV #.DVLS,RO ;PROG DEFINED ADDR. LIST. 

(2) 032410 005001 CLR Ri 

(2) 032412 605710 1$: TST (0) ;EOL REACHED? 

(3) 032414 001420 BEQ 108 YES = DEFINE NEW ADDR. 

(2) 032416 027520 000000 CMP a(5),(0)+ ADDR. MATCH? 

(2) 032422 001402 BEQ 2$ 

(2) 032424 005201 INC R1 

(2) 032426 00077 BR 1$ 

(2) 032430 010137 032442 28: MOV R1,38 ;SAVE LIST OFFSET 

(2) 032434 005725 TST (55+ 

(2) 032436 004537 032040 JSR RS, STLKR :G0 READ DEVICE 

(2) 032442 $OFS=. 

(2) 032442 000000 3$: .WORD 0 OFFSET OF DEVICE 

(2) 032444 013735 032204 MOV SDATR,a(5)¢ :STORE DATA. 

(2) 032450 012601 MOV (SP)+,R1 RESTORE R1 

(2) 032452 012600 MOV (SP)+,RO RESTORE R2 

(2) 032454 000205 RTS R5 ZEXIT 

(2) 032456 017520 000000 10$: MOV acs), (0+ 

(2) 032462 005010 CLR (0) 

(2) 032464 004537 031074 JSR R5,SLPAL 

(2) 032470 001664 -WORD .DVLS 

(2) 032472 000756 BR 2s 

(2) feSTOUT ROUTINE USED TO WATCH IF 

(2) 3* WE'RE IN A LOOP TOO-LONG 

(2) 3* CALLE JSR $TOUT 

(2) it ERROR X% ~— SRETURNS HERE ON TIMEOUT 
3% 

(2) 3* ;RETURNS HERE NO ERROR 

: 

(2) 032474 020537 032530 $TOUT: CMP RS, $SAD ;SAME ADDR? 

(2) 032500 001405 BEQ 1$ 

(2) 032502 010537 032530 MOV R5,SSAD ;NO-SAVE THIS ADDR. 

(2) 032506 005037 032532 CLR SCNT CLR CNT AT ADDR. 

(2) 032512 000403 - BR 2$ 

(2) 0632514 005237 032532 1$: INC SCNT OVERFLOW? 

(2) 032520 100402 BMI 3$ SYES-ERROR RETURN 

(2) 032522 062705 000004 2$: ADD #4 ,R5 [NO-NON ERROR RETURN 

(2) 032526 000205 3$: RTS R5 RETURN. 

(2) 032530 000000 $SAD: .WORD 0 ;CONTAINS LOOP ADDR. 

(2) 032532 000000 SCNT: .WORD 0 :#@ OF TIMES AT ADDR. 

(2) 

(2) ie THIS ROUTINE REPLACES WHAT THE USER WOULD ORDINARILY 

(2) *USE FOR A RESET. FIRST.WE DO A RESET INSTRUCTION. 

(2) S*THEN WE CLR DVLST WHICH FORCES US TO RESE? BOTH THE 

2) ;#KMC AND DAC AS SOON AS A DEVICE IS REFERENCED. 

(2) ee CALL=JSR PC, SRESET ;REPLACES “RESET INSTRUCTION 

| ie ;RETURNS HERE. 
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RLPGC.P11 18-AUG-80 09:15 TRAP TABLE SEQ 0183 

(2) ** ‘ 

| i 032534 000005 SRESET: RESET sRESET THE WORLD. 
(3) ie MOV @2$,1$ ;/READ DEVICE REG 2s .Put DATA IN 18. 
(2) 032546 005737 031562 TST SAERR iF NO ERROR,L 
(2) 032552 001004 BNE 10$ THERE WAS AN ERROR. 
(2) 032554 062737 000002 032570 ADD #2,2% ZUPDATE DEVICE AD 
(2) see ,WE HAVE fo PROTECT OUR SELF! 
(2) At: 2$ CONTAINED A VALID ADOR,WE 
(2) [MUST KEEP TRYING UNTIL WE GENERATE 
(2) zAN INVALID ADDR. 
(2) 032562 000764 BR SRESET 
(2) 032564 10$: 
(2) 032564 000207 RTS PC 
(2) 032566 000000 1$: .WORD 0 : JUNK LOC. 
(2) 032570 160000 2$: .WORD 160000 =DUMB ADDR. FORCES INIT OF DMC/KMC. 
s | 
(2) " SDELAY- ROUTINE TO GIVE A MINOR DELAY. 
(2) ; 1S NOT TIME DEPENDENT CODE SENCE 
(2) ; NOT USED TO GET SPECIFIC TIME BUT 
‘s} 3 JUST A LITTLE DELAY. 
(2) : THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 
ég) : THEN WE'LL GENERATE A TIME BETWEEN 16MS TO 32 MS 
(2) : 
t¢) : CALL= JSR PC, SDELAY 
(2) 032572 SDELAY: | 
(2) 032572 005737 032654 TST RTCCSR sCLOCK PRESENT? 
(2) 032576 100016 BPL 10$ 
(2) 600 012737 000002 032644 MOV #2, TIME | 
(2) 032606 052777 000115 000040 BIS #115, aRTCCSR :START CLOCK , 
(2) 032614 005037 177776 : CLR PS 
(2) 032620 005737 032644 1$: TST TIME 
(2) 032626 001375 BNE 1$ 
(2) 626 005077 000022 CLR @RTCCSR :STOP CLOCK 
(2) 032632 000207 RTS PC 
(2) 032634 105237 032644 10$: INCB—OCTIME 
(2) 032640 001375 BNE 10$ 
(2) 32642 000207 RTS PC 
(2) 032644 000000 TIME: .WORD 0 | 
(2) 005337 032644 CLKINT: DEC TIME 
(2) 032652 000002 RTI 
(2) 32654 000000 RTCCSR: .WORD 0 :CLOCK CSR IF USED. 
(2) : 
(2) [*THIS MACRO ALLOWS THE OPERATOR TO TALK TO 
(2) [ANY DEVICE ON THE 1/0 1s 
(2) s*USER MUST START AT T 
(2) s*HE MUST SAY EITHER eS OR. EXAMINE, OR "'D'’ FOR DEPOSIT. 


og a 
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'LPA-KW11K DIAGNOSTIC MD-11-CR 
CRLPGC.P11  18-AUG-80 09:15 


(2) :*"E" IS DEFAULT. 
[eNEXT, HE MUST SUPPLY AN ADDR. 


C 
1 SEQ 0184 


(2) 

(2) S#NOTE IF ADDR. 1S NOT FOUND ON I/O BUS, A HALT 

(2) S*WILL OCCUR. 

(2) 032656 _ $UTK: 

(2) 032656 005037 001664 ee ar CLR .DVLS 

(2) 032662 21$ 

(3) 032662 104401 032670 TYPE 65% s;TYPE ASCIZ STRING 

(3) 032666 000405 BR 64$ *:GET OVER THE ASCIZ 

(3) ::65$: .ASCIZ <200>#E OR D24 

(3) 032702 64s: 

(2) 032702 105777 146236 1$ TSTB ss @STKS 

(2) 032706 100375 BPL 1 

(2) 032710 117737 146232 033032 MOVE  a$TKB,208 ° :GET INPUT 
(2) 032716 104401 033032 TYPE, SECHO, NEXT MESSAGE. 
(2) 032722 142737 000240 033032 BICB.  #240,20$ ‘STRIP PARITY, LC 

(2) 032730 104412 RDOCT [GET ADDR. 

(2) 032732 012637 033030 MOV (SP)+, 148 

(2) 032736 123727 033032 000104 CMPBs«208,#"D sDEPOSIT? . 
(2) 032744 001411 BEQ 10$ 

(2) 032746 004537 032400 JSR RS, SINLP :GET DATA 

(2) 032752 033030 2$: “WORD 148 

(2) 032754 032766 “WORD 5$ 

(3) 032756 013746 032766 MOV 5$,-(SP) s;SAVE 5$ FOR TYPEOUT 

(3) 032762 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
(2) 032764 000736 BR 21$ LOOP. 

(2) 032766 000000 5$: .WORD 0 

(2) 032770 108: 

(5) 032770 104401 032776 TYPE 67% s; TYPE ASCIZ STRING 

(3) 032774 000404 BR 66$ S:GET OVER THE ASCIZ 

(3) 5:67$: .ASCIZ <200>#DATA= # 

(3) 033006 66S: 

(2) 033006 104412 RDOCT 

(2) 033010 012637 033026 MOV (SP)+,13$ 

(2) 033014 004537 032302 11$: JSR RS, SOUTLP sOUTPUT ROUTINE. 

(2) 033020 033030 12$: WORD 14% [DEVICE ADDR. 

(2) 033022 033026 “WORD 138 DATA 

(2) 033024 000716 BR 21$ 

(2) 033026 000000 13$:  .WORD 0 

(2) 033030 000000 14$:  .WORD 0 

(2) 033032 100001 042504 044526 208:  .ASCIZ <1><200>#DEVICE ADDR= # 

(2) 033040 042503 040440 042104 

(2) 033046 036522 

(2) EVEN 

(2) 

(1) 

i 

(2) [THIS ROUTINE LOOKS THROUGH CURENT .DVLS FOR A/D ADDR. 
(2) SIF UNFOUND,GENERATES IT. THIS ROUTINE'S WHOLE PURPOSE IS 





Petite -_-— a a = — 
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(2) :TO SET UP THE USER PROGRAM TO LINK TO FILE “DRLPX2" FOR 
(2) : SAMPLE TAKEING PURPOSES. 
: TO TAKE SAMPLES, THE USER PROGRAM MUST SET UP 
A/D CSR IN BSEL p 5. 
(2) HE MUST CALL fnis ROUTINE : 
Js RS SPT $ CALL SET UP ROUTINE. 


WORD ADCSR DDR. OF A/D CSR. 
[RETURNS HERE :KMC BSEL js 6,7. PERRINENTL SET UP 
UNTILL ONE DOES A RESET) 


1 
(2) 3 

Ps (3) THE USER MUST PUT CODE 006 INTO KMC REG 2 TO 
3 START CONVERSION CAUTION*DO WITH MOVB INSTR.! 
é be rete KMC REG 2 FOR CODE Ad (DRLPX2 IS DONE) 
g (S)READ KMC REG 4,5 FOR A/D RESUL 
: (6) TO TAKE MORE SAMPLES, SIMPLY bi A/D CSR INTO 
: BSEL 4,5 AND CODE 6 INTO BSEL 2. 


37 033062 $puts: Mov (5), 18 :GET ADDR OF ADDR. OF A/D 
37 032400 a Js R5.SINLP 


60 108 

77 032442 146556 MOVE  $OFS,@KMAD6 
2 MOVB  $OFS.aKMAD7 
: MOV 1$,2$ 


0000 #2,28 
033116 004537 032400 JSR R5,SINLP 
033122 000000 2s: -WORD 0 


10$ 
37 632442 146510 MOVB SOF S ,@KMAD3 
03 52777 000340 146510 BISB #340 ,aKMAD6 
033142 152777 000300 146504 BISB #300 ,@KMAD7 
033150 152777 000300 146466 BISB > ececammmee 


033160 000000 10$: - WORD 


Fe ae he he ht a he ee te ce i ce ee a 
PROPOR. POPIPINIPY PONY NPY PO PENP PE PO MPN nmnrnrnnr 
ee a a a a a a at et a a a a ee ee ee ee ee ee ee ee 
So 
8 
~ 
Ps 
S3<=S 
pr re 
NRW 
~ 
~ 
~ 
So 
w 
™ 
r~ 
= 
™m 
— 
= 
oa 
“= 


042000 -=42000 
sHERE RESIDES THE MICRO-CODE USED BY THE PROGRAM 
043000 -=43000 


FREE LOCATION AFTER THE MICRO-CODE 


Sees 


See 
uO 


000001 ~ END 


eee 
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ABASE = 170404 218 1279 
ABR 001326 79# = =61462* = 1518 1548 1549 1576 1577 1778 1797 1825 1853 2040 2092 
2202 2281 2282 2283 2284 2285 2286 2304 $378 $326 2391 - 2431 
$255 $238 $oe8 2618 2672 2685 2735 3084 148 258 3259 3260 


2219 2281 2282 2285 2284 
3096 3155 


20 1778 1796 1820 1844 1971 1972 
20 2039 2046 2047 2049 2091 2099 
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ERLPGC.P11  18-AUG-80 09:15 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0187 
2102 2106 «= 2148 = 2154 = 2155 2157 216 170 2194 2206 2205 2207 2210 
2281 3282 a8 284 2285 2286 230 306 ©2316 38s 2352 «2389 2393 
2394 2396 23972429433 0434 436 474481 2482484 486548 
2549 2593 2594 2616 2619 2621 2670 267 677 3679 3731 737 BK5 
2754 3791 3793 2854 2853 2857 29039 915 2949 2976 «29803048 
3049 3050 3051 3052 3053 3082 3092 3093 3095 3146 3149 3151 3258 
3259 3260 «3261S «3362 «= 3368) 3364 3365 0 3458) = 3466 = 3469 «= 3472 «= 3509 = 3522 
$523 $525 $504 356755693580 S612 3619 3622 3632 3665 3670 3687 

ASWREG= 000000 1279 

ATESTN= 000000 1279 

AUNIT = 000000 1279 

= 000000 1279 

AVECP2 001342 12798 1474s 

AVECT 001340 12798 1472 

AVECTI= 000344 12228 1279 1439 

AVECT2= 900000 1279 

BBR «001334 12798 1468" 1518 1660 1661 1778 1882 1909 1937 2784 2843 2908 2952 
2978 3048 $049 5050-5051 505250533086 3362 3363 «43364 «= 3365 «(3668 

BCR 001336 1279# 1670" 1518 1886 1912 1940 2794 2861 2925 2958 30468 3049 3050 
3051 3052. «3053. «3362 «Ss «3363 «= 3364 «= 3365 «= 3792S «3798 = 3799 

BITO = 000001 1220 1778 «©2789-3145 

BITOO = 000001 1220# 2009 2211 2398 

BITO1 = 000002 12208 

BITO2 = 000004 12208 

BITO3 = 009010 12208 

BIT04 = 400020 12208 

BITOS = 0 1220# 2161 2281 2282 2283 «2284 «= 2285S 2286 = 2317 ~—(3623 

BIT06 = 000100 12208 

BIT07 = 000200 1220 2171 2487 3678 

BITO8 = 000400 12208 3741 

BITOY = 001000 12208 3738 «= 3741 

BIT! = 000002 1220 1778 2789 3805 

BIT10 = 002000 12208 1778 2683 2548 2549 2593 2594 2620 3468 3738 

BIT11 = 004000 12208 1778 2732 2779 «= 2792S 2836 2856 = 2914 §=—s 3094 «= 3258 «= 3259 = 3260 = 3261 
3362 3363 «3364 «= 3365 «3805 

BIT12 = 010000 W220e 1778 1975 200620482108 2156 2206 «= 2395S «2435-2678 = 3150 3524 

B1T13 = 020000 12208 1778 2003 3482 3536 3588 3641 3696 3738 

BIT14 = 040000 1220@ 1778 2123 2875 «©3741 «= 3805 

BIT15 = 100000 12208 1778 73-3805 

BIT2 = 000004 12208 1778 

BITS = 000010 12208 1778 

BITS = 000020 12208 1778 3805 

BITS = 000040 12208 1778 2789 3362 3363 3364 3365 3805 

BIT6 = 000100 12208 1778 

BIT? = 000200 12208 1778 

BIT8 = 000400 12208 1778 ©3521 

BIT9 = 001000 12208 1778 3521 3568 

BPRITY 001352 12798 14808 

BPTVEC= 000014 12208 

BSR 001332 19798 1666 1518 1635 1636 1778 1881 1902 1930 2346 2470 2548 2549 
2669 2674 +«2718~=S 2733S 2780 «= 2788 «= 2790 «= 2837 = 2848 = 2850) 2906 = 2910 912 

16 3950 5977 3048 3049 3050 3051 3052 3053 3083 3088 3090 3258 

259 $260 $261 3362 3363 3364 3365 3458 3467 3509 3564 3612 
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3676 3677 3790 3795 

BVECT 001344 12798 «1476* 
BVECT2 001346 1279# = §=61478* 

CKSWR = 104407 3738 3741 37514 

CLKINT 032646 38054 

CR = 000015 12208 3744 

CRLF = 000200 12208 3744 ‘ 

DDISP = 177570 12204 1279 1444 

DFO 03107 1290 1297 1304 1311 1318 1325 ! 1332 1340 1347 1354 1358 1359 1360 

1361 1368 1375 1382 1389 1396 1403 1410 1417 1424 1431 1438 38024 

DH1 03005 1288 295 37714 

DH10 030337 1337 37778 

DH12 03047 1352 1380 37798 

DH14 03051 1366 1387 37804 

DH20 030533 1394 37814 

DH23 030575 1415 37828 

DH26 03063 1436 37834 

DHS 030111 1302 37728 

DH4 030147 1309 1345 1401 1408 37738 
DHS 030205 1316 37748 

DH6 030243 1323 37754 

DH? 03030 1330 1373 1422 1429 37768 
DISPLA 001142 12798 =61444e 83738 = 37418 
DISPRE 000174 1209# 1444 

DRLPX2= teeeee G 524 3805 

S = 177570 12204 1279 1444 

DT1 0 1289 1296 1395 1416 37878 
DT10 030762 1339 37934 
DT12 030776 1353 1381 37944 
DT14 031 1367 1388 37954 
DT21 031012 1402 37968 
DT22 031024 1409 37978 
OT24 031036 1423 7984 
DT25 031050 1430 37998 
D126 031 1437 38004 
D135 030700 1303 37884 
DT4 030712 1310 1346 37894 
DTS 030724 1317 37904 
DT6 030736 1324 37918 

7 030750 1331 374 37920 

EMTVEC= 30 1220# 1444* 

m1 027166 1287 37534 

EM10 027433 1336 37608 

Ent 027460 1344 1400 1407 37614 
EM12 027507 1351 37628 

EM14 027547 1365 7634 

Em15 027607 1372 1421 1428 3764a 
EM16 027636 1379 37654 

EM17 027671 1386 37668 

m2 027221 1294 37548 

M20 027724 1393 37678 

Em23 027763 1414 7688 

EM26 030022 1435 37694 

EMS 027250 1301 3755@ 

m4 027277 1308 7564 

EMS 027326 1315 3757a 


-—_—— 
| 
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‘LPA-KW11K DIAGNOSTIC MD-1 
18-AUG-80 


/CRLPGC.P11 
EMG 027355 


KM 1636 
KMAD1 001640 
KMAD2 001642 
KMAD3 001644 
KMAD4 001 
KMADS 001650 
KMAD6 §=001652 
KMAD7 001654 
LF = 2 
L 0023 
LPADH 001650 
LPADL 001646 
LPCI 001636 
LPCO 001642 
001640 
LPMS1 001652 


PRO = 
PR1 = 
PR2 = 000100 
PR3 = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 
PR7 = 34 
PS = 177776 
PSW = 177776 
PWRASG 027034 
PWRVEC= 24 
RDCHR = 104410 
ROLIN = 1 1 
RDOCT = 104412 
RD1 032202 
RESVEC= 1 
RSTART 0024 
RTCCSR 032654 
AY 032572 


SDEL 5 
SSTART 002466 


09: 
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a 
484 


37418 
3482 


3805* 


3805* 


25494 


3746* 


MACY11 306(1063) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


3536 


EO OT | REELS, FN PN TIED EA 


15 _ 
24-0CT-80" 03: 38 PAGE 4-3 


3588 


3641 


3696 


3706 


3710 


3751 


3752 


3805 


SEQ 0189 


LPA-KW11K none 


CRLPGC.P11 
STACK = 001100 
START 001726 
STKLMAT= 177774 
S 001140 
SWREG 000176 
swO. = = _ 000001 
swOO = 000001 
sw01 = 000002 
sw02 = 000004 
swO3 = 000010 
sw04 = 000020 
swOS = 000049 
sw06 = 000100 
sw07 = 000200 
sw08 = 000400 
swo9 = 001000 
Swi = 000002 
swi0 = 002000 
SWwi1 = 004000 
Swi2 = 010000 
Swi3 = 020000 
Swi4 = 040000 
Swi5 = 100000 
SWw2 = 000004 
sw3 = 000010 
Ssw4 == 000020 
sw5 == 000040 
SW6 = = - 000100 
sw7 == 000200 
sw8 = 000400 
= 001000 
TBITVE= 000014 
TIME 032644 
TKVEC = 000060 
TPVEC = {00064 
TRAPVE= 990034 


12642 


0 
TST105 012754 
TST106 013066 
TST107 013176 
TST11. 003254 
TST110 013312 
TST111 013434 
TST112 013554 
TST115 013674 
TST114 014054 
TST115 014234 
TST196 014554 
TSTI17 014474 


a 


tp ive) PAS 
STIC MD=11-CRLPG-C_——MACY11, 30G(1063)_ 2420C1-B0 09:38 PAGE 4-4 


80 09:15 CROSS REFERENCE TABLE -- USER SYMBOLS 


1444 1483 
14444 3746 


1444* 2123 2875 3482 3536 3588 3641 
1444 3743 


Lee 


14448 


3696 


3738 


3741 


3743e 


SEQ 0190 


3746¢ 


c- ee —_—— —_—_— -—- —_—- — 
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C.P 18-AUG-80 09:1 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0191 
\1$T12. 003354 177 
TST120 014600 26518 
TST121 015016 27268 
TST122 015164 27768 
TST123 015314 28278 
TST124 015522 28934 
TST125 015712 29434 
TST126 016006 29688 
TST127 016106 30484 
TST13 0034 17788 
TST130 016226 3049" 
TST131 016346 30500 

0164 

0166 
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5 002754 1630" 
TST50 007154 17788 
S151 007254 17788 
TST52 007354 17788 
TST53 007454 17788 
TST54 007554 17788 
TST55 007654 17788 
TST56 007754 17788 
TST57 010054 17788 
TST6 003014 16558 
TST60 010154 17788 
TST61 010254 17788 
TST62 010354 17788 
TST63 010454 17788 
TST64 010554 17898 
TST65 010626 18128 
TST66 010704 18408 
TST67 010762 18748 
TST7 003054 
TST70 011034 18984 
TST71— 011112 19268 
TST72 011170 19684 
TST73 011254 19988 
TST74 011360 20348 
TST75 011502 20834 
TST76 011656 2144 
TS177 012024 21908 
TYPDS = 104405 3395 37514 
TYPE = 104401 1448 3395 3482 3536 3588 3641 3696 3706 
3743 3744 «= 374637518 ~— 3805 
TYPOC = 104402 3708 «6 3716. =S«3739«S «3743 = 3751# = 3805 
TYPON = 104404 37514 
TYPOS = 104403 37518 3805 
VECTOR 001656 14398 
VECTPS 001660 14398 
RSN 001662 14398 
Wi 032032 3805a« 
W2 032034 3805a« 
2036 3805ae 
SAERR 031562 3805#e 
12778 
SASTAT= teeeee Y 3745 
026440 37458 
SATY1 026414 37458 
SATYS 026422 3744 37458 
SATYS 026432 37458 
001134 12798 1445 3743 
001254 12798 1450 
SBDADR 001122 12798 3793 
SBDDAT 001126 12798 1518 1569 1550 1577 1578 1610 1611 
1801 1802 1826 1828 1854 1856 1886 1887 
1980 2008 2009 2052 2053 2109 2111 2160 
2281 2282 2283 2284 2285 2286 2312 2313 
2361 2397 «2398 ~=— 2437 2438) 2470 471 2486 
2622 2623. «2685 «= 2686 «= 2699 = 2700 742 2743 
2863 2916 «=. 2917, «2925. 2926 ~=— 2958 ~=— 29592987 





3710 


3737 


3738 


errs 
SITE Ses 
ofFoo-oO-— 


3739 


SEQ 0192 


3740 
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LPA~KW11Kk omg ele MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 09:38 PAGE 4-7 
CRLPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -- USER SYMBOLS 


3052 3053. «Ss «3096 «= «309731553156 = 3258 «= 3259 = 3260 
3305 $327 $528 35803381 S682 5653 3373688 
3791 3792 3793 3797 ©3799 
$BELL 001170 12798 ©3738 
$CDW1 001260 12798 
$cow2 001262 12798 
SCHARC 026410 3744ee 
SCKSWR 025356 7434 © 3751 
SCMTAG 001100 12798 ©1444 
$CM1 = 000001 12798 
$CM2 = 000002 12798 
SCM3 = 000001 12798 
$cM4 = 000001 12798 
SCNT 032532 3805#e 
SCNTLG 026103 7438 
SCNTLU 026076 
SCPUOP 001226 12798 
SCRLF 001175 12798 3738 «3739S 3743 37h 
SDATR 032204 3805#« 
SOBLK 025052 7404 
001264 12798 
1 001266 12798 
$00W10 001310 12798 
$odWi1 001312 12798 
$ODW12 001314 12798 
SoDW13 001316 12798 
$oowi4 001320 12798 
$00w15 001322 12798 
sopw2 001270 12798 
$oow3 001272 12798 
Owe 001274 12798 
$oDWS 001276 12798 
DW> 001300 12798 
$odW7 001302 12798 
$0DWB 001304 12798 
DW9 001306 12798 
S$DEVCT 001210 12798 14518 
001256 12798 
022424 33958 
SOTBL 025042 37408 
022414 1275 33954 = 3738 
SENDCT 022362 1444  3395# 
022433 33958 
SENULL 022430 33954 
SENV 001220 12798 3738 «= 3744 3745 
SENVA 001221 12798 1644 937443745 
022332 33958 
SEOPCT 022354 hehe == 33950 
SERFLG 001103 12798 3738" «37418 
SERMAX 001115 12798 1444e 37418 
SERROR 024302 1444 37388 
SERRPC 001116 12798 3738 «93739 «= 3787S «3788 «= «3789 «Ss «3790S 3791 = 3792 
3797, 3798 «= 3799 «Ss 3800 
SERRTB 001356 12798 3739 
SERRTY 024502 3738 «= 37398 
SERTTL 001112 


3793 


3794 


3795 





SEQ 0193 


3364 
3790 


3796 





a ee ener ae ee Sa ee YT. | 
LPACKNTIK DIAGNOSTIC MD=11=CRLPG-C MACY. 30G(1063)_ 24-0C 7-80 09:38. PAGE 4-8 


LPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0194 
SESCAP 001166 1279#@ 1444* 3738 37418 
SETABL 001220 12798 
SETEND 001324 1277 12794 
SFATAL 001202 12798 3745* 
SFFLG 02 3745a* 
SFILLC 001156 144 744 
SFILLS 001155 12794 744 
001120 12798 793 
SGDDAT 001124 1279# 1547* 1548 1573* 1576 1606* 1609 1619* 1620 1632* 1635 1657* 1660 
1778* 1795 1796 1797 1799* 1819 1820 1822 1825 1828 1843* 1844 1850* 
1853 1856 1880" 1881 1882 1884e 1901* 1902 1908* 1909 1914 1929 1930 
1936* 1937 1942 1970* 1971 1972 1975* 1976 2003* 2004 2005 2006* 2007 
2019* 2020 2038* 2039 2040 2045* 2046 2047 2048" 2049 2050* 2053 2085* 
2092 2106* 2111 2120 2125 2147 2148 2149 2150 2153" 2154 2155 2156* 
2157 2193" 2194 22018 sone 2203* 2204 2205 2206* 2207 2281* 2282e  2283¢ 
2284e 2285 2286% 2302" $30 2304 2305* 2306 2348* 2349 235 srai° 2352 
2355* 2356 2388* 2389 390* 2391 2392 2393 2428* 2429 24308 431 2432¢ 
2433 2434 2435* 2436 2473* 2474 2480* 2481 2482 2483" 26 2548% 25498 
2593* 2594  2615% 2616 2617+ 2618 2619 2620* 2621 2668* 2669 2670 2671* 
2672 2673* 2674 2675* 2676 2677 2678* 2679 2683" 2712* 271 2730* 2731 
2732e 2733 2734* 2735 2736* 2737 2753* 2754 2779* 2780 2783* 2784 2 
2789* 2790 2791 2792* 2793 2829* 2843 2858* 2863 2872 2877* 2904e 2 
2906 2907 2908 2909* 2910 2911" 2912 2913 2914* 2915 2948% 2949 2950 
2951* 2952 2956* 2975* 2976 2977 2978 2979% 2980 3048* 3049 3050*  3051* 
3052e 3053* 3081* 3082 3084 3085* 3086 3087* 3088 3089* 3090 3091* 
3093 3094* 3095 3147 3148 3149 3150" 3151 3153 3156 3258* 2598 
segc° $56." 3362e 3363* 3364* 3365* 3787 3788 3789 3790 3791 3792 3793 
$GET42 022404 3538, 
SGTSWR 025426 37434 3751 
$HD = 000001 1207 
SHIBTS 001 12774 
SHIOLT 025354 3742a* 
oe Go liee 1279#@ 3458 3482 3509%  3536%  3564* 3588  3612%  3641*  3665*  3696* 
032400 1518 1549 1577 1610 1636 1661 1778 1801 1826 854 8 1912 0 
1972 1979 2005 2008 2047 2052 2102 2109 2155 2160 2170 2205 2210 
2219 2281 2282 2283 2284 2285 2286 2312 2316 2346 2360 2394 2397 
4 2437 2470 2482 2 2548 2549 2593 2594 2619 2622 2677 2685 
699 2742 2745 2788 2791 2794 2855 2861 2913 2916 2925 2958 2987 
8 3049 3050 3051 3052 3053 3093 3096 3149 3155 3258 3259 3260 
see! set, 3363 3364 3472 3523 3527 3567 3580 3622 3632 7 
SINTAG 001135 12794 3743 
SITEMB 001114 12794 3738* 3739 
F 001176 12794 3738 3743 3744 
SLFLG 026657 3745ae 
OAD 031564 3805¢ 
SLPADR 001106 1279#@ 14442 37418 
SLPAI 031074 38054 
SLPERR 001110 12798 1444* 3738 37418 
SLPW gnee08 38054 
SMADR1 00123 12794 
$MADR oss 12798 
SMADR 1242 127984 
SMADR4 001246 127984 








LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C 


CRLPGC.P11  18-AUG-80 09:15 
SMAIL g01 00 1277 
SMAMS1 001 12798 
SRANS¢ 001 12798 
SMAMS3S 001.4 12798 
$4 001244 12798 
ADR 001002 12778 
SMFLG 026656 3745e« 
Ww 026121 7438 
SGAD 001214 12798 
SGLG 001216 12798 
SMSGTY 001200 12798 
5 026110 37434 
SMTYP1 001231 12798 
SMTYP2 001235 12798 
SMTYP3 001241 12798 
SMTYP4 001245 12798 
SNULL 001154 12798 
SNWTST= 1 51 
9684 
23398 
28938 
326084 
SOCNT 024276 37378 
SOFS = 032442 3805¢ 
SOMODE 024300 37374 
SOUTLP 032302 1548 
1881 
04 
20 
2356 
2549 
2731 
2850 
2978 
3090 
3365 
3619 
SOVER 025240 37414 
SPASS 001206 12798 
3696* 
SPASTM 001006 12778 
$PUTS 033052 38054 
SPURAD 027022 37468 
SPWRON 026662 1444 
027016 37468 
026734 7468 
SQUES 001174 12798 
SROCHR 025640 37438 
SRDDEC= eeeeee y 3751 
$ROLIN 025760 7438 
SRDOCT 0252 7628 
$RDSZ = 000016 374 
EGAD 001160 12798 
SREGO 001162 12798 
SRESET 0325 54 
SRINAD 022426 395a 


12798 


W 15 
MACY11 30G6(1063) 24-OCT-80 09:38 PAGE 4-9 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1444 


1452* 


3743 


3738 


3395 


3744 


3741 


COww 
£oow 


& 


Sz 
Oc coo 


3458+ 


3744 


3482+ 





35648 


NwOMOoNM 


WMWWRIMININININN — 
ely 
"WO FF FONNO 


Now 
o 


3564 


3588* 


3612* 


SEQ 0195 


eS 








LPA-KW11K voctag seh MD-11-CRLPG-C MACY11 306(1063)_ 24-0CT-80 B OS: 738 PAGE 4-10 
CRLPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0196 


SR2A = eeeeee Y 3751 
SSAD 032530 8054 
= eeeeee | 751 


SSAVRE 
SSAVR6 027032 7468* 
OPE 0 2 144 


2506 4 37418 
SSETUP= 000137 14428 1444 3395 3738 3741 3743 
S$STUP = 177777 14428 
SSVLAD 0252 37418 
SSVPC = 000234 12754 
= 163400 11614 1207 1208 1279 1444 151 1542 1571 1604 1630 1655 1778 1789 
1812 1840 = 1874 1898 1926 196 1998 «2034 2083 2144 2190 2281 2282 
2283 = 2284 2285 2286 «= 2297-2339) 2379) 418 = 2467 2548 = 2549 = 2593 259% 
2607 = 2651 2724 2776 «= 2827 2893) = 2943 2968 =: 3048 3049 3050 3051 3052 
$24 $0ee 3136 «= « 3258 «= 3259s 3260S 3261 33620 (3363 33640 = 3365S 3395 =: 5738 
SSWREG 001222 1279# 61444 
1208 = 3741 
001204 1279# =1518* 3741* 
001146 12798 §=63743 = 33805 
001144 12798 =63743* 3805 
032040 38054 
031724 38054 
001354 12798 =2090* 2091 2098* 2099 2102 2103* 2104 2210 2211 2394 2395* 2396 
2833* 34 2836* 2837 2847* 2848  2849* 2850 2855 2856* 2857 3145* 3146 
3258e 3259% 3260* 3261*  3362* 3363* 3364" 3365"  3458* 3466 3467 3468* 3469 
3509* 3519" 3520 3521* 3522 3523 3524* 525 3564*  3566* 3567 
3568* 3569 3612* 3614* 3615 3618* 3619 3622 3623 3665*  3667* 3669* 
75* 3676 3677 3678 
001164 12798 3797 =_- 33798 3799 3800 
000147 1207# 1518# 1542 15718 16048 16308 16554 1778 17898 18128 18408 18748 18988 
9984 20348 20834 21448 21904 22818 22828 22838 228468 22858 2 
22978 23398 23798 26188 26678 25488 25498 5934 25948 26078 26518 27248 27768 
28278 29434 29684 30488 30498 30504 3051# 3052 30534 3064# 313568 32588 
32598 3260@ 32614 33624 33638 33648 33654 
032474 38054 
52 12798 37448 
001157 12798 3744 
001150 12798 
027102 1444 37514 
027124 37518 
14 37514 37528 ‘ 
027136 37518 
001004 12778 
001102 1279@ =61518* 3395" 3738 37418 
026066 37434 
eeeeee 3751 > 
46 37408 3751 
026132 37448 374 3751 
3743-3744 
026412 37448 
024100 37378 = §=©3751 
024114 37374 = =©3751 
024054 3737@ 8§©63751 
001212 127 
1010 12778 


me + er 





— or _ 
upkoxwt te DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-0CT-80. 09:38 PAGE 4-11 


CRLPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0197 

SUTK 032656 38054 

SVECT1 001250 12798 

SVECT2 001252 12798 

SXTSTR 025074 37418 

$$GET4= 000000 33954 

SOFILL 024277 3737a 

SGOCAT= eeeeee YJ 3738 3741 

. = 043000 1209@ 1210 1275# 1276 12778 12798 14398 1444 14488 3395 34828 35368 35888 
a} Sense 371048 3738 37398 = =6937408 3741 37438 3744 37458 3746 37858 38054 

-DVLS 001664 1439@ 1654" 1482* 3457" 3508*  3563* 3611* 13664"  3805* F: 

.SASTA= eteeee YJ 3745 . ¢ 

-$x = 001000 12778 


PONE Si BARC aie gS AE Uae SU RE gE a tS Ae Oe te Sele 


poo CS eee a 


D 16 
LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 gt sae 5 


CRLPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -=- MACRO N SEQ 0198 

ADTST 14938 1518 

AREPT 32634 

BREPT 33678 

BRIM 9978 3048 3049 3050 3051 3052 3053 

CADT 1694 3258 3259 3260 3261 

CADTB 32884 3362 3363 3364 3365 

CBC 17788 . 

CBTC 25584 2593 2594 : 

cBT25 24948 2548 2549 

N 12208 1554 1557 1581 1584 1613 1617 1640 1644 1665 . 1669 1778 1805 1 1832 

1837 1860 1865 1890 1894 1918 1923 1946 1951 1983 1987 2012 2017 2056 3 
2114 2118 2163 2166 2174 2179 2213 2216 2223 2231 2281 2282 2283 2284 2285 
2286 2321 2326 2363 2367 2400 2403 2440 2452 2489 491 2548 2549 2593 5 
2625 2628 2688 2695 2704 2710 2748 2751 2797 2810 2865 2869 2919 2922 2929 
2932 2962 2965 2990 2994 3048 3049 3050 3051 3052 3053 3100 3111 3159 3165 
Se $235 Seee $98! 62 3363 3364 3365 3476 3480 3531 3534 3583 3586 3635 


CSRDTA 16808 1778 


33 
3730 
DFC 2804 290 1297 1304 1311 1318 1325 1332 1340 1347 1354 1368 1375 1382 1396 
03 1410 1417 1424 1431 1438 
ECALL 17174 =©1778 
ECB 1254# 1554 1557 1581 1584 1613 1617 1640 1644 1665 1669 1778 1805 1 1832 
1837 1860 1865 1890 1894 1918 1923 1946 1951 1983 1987 2012 2017 2056 2063 
2114 2118 2163 2166 2174 2179 2213 2216 = 2223 2231 2281 2282 228 2 2285 
286 = 2321 2326 2363 2367 2400 2403 2440 2452 2489 2491 2548 2549 =. 2593 2 
2625 2628 «©2688 2695 2704 2710 2748 2751 2797 2810 2865 2869 2919 = 2922 2929 
32 2962 2965 2990 2994 3048 3049 3050 3051 3052 3053 3100 3111 3159 3165 
238 $235 230 +H $3 ‘ 336 336 3365 3476 3480 3531 3534 3583 3 3635 
ENDCOM 1220# 1554 1557 1581 1584 1613 1617 1640 1644 1665 1669 1778 1805 1809 1832 
1837 1860 890 1894 1918 1923 1946 1951 1983 1987 2012 2017 2056 2 
2114 2118 2163 2166 2174 2179 2213 2216 2223 2231 2281 2282 2283 22 2285 
2286 = 2321 2326 = 2363 2367 2400 2403 2440 2452 2489 2491 2548 2549 = 2593 
2625 2628 2695 2704 2710 2748 = 2751 2797 2810 2865 2869 2919 2922 2929 
2932 2962 2 2990 2994 3048 3049 3050 3051 3052 , 3053 3100 3111 3159 3165 
3258 3259 3260 3261 3362 3363 3364 3365 3476 3480 ; 3531 3534 358 35 3 
3639 3690 3694 3701 3724 3730 
ERROR 1220@ 1555 1582 1614 1641 1666 1778 1806 1833 1861 1891 1919 1947 1984 2013 
2057 2115 2164 2175 2214 2224 2281 2282 2285 2284 2285 2286 2322 364 2401 
2441 2548 2549 2593 2594 2626 2689 8=— 2705 2749 = 2798 866 2920 2930 2963 
3048 3050 3051 3052 3053 3101 3161 3258 3259 3260 3261 3 
3365 3478 3532 3584 3636 91 3805 
ESCAPE 1220# 
GETPRI 12208 
GETSWR 12208 
MOVE I 170@ 861518 1549 1577 1610 1636 1661 1778 1801 1826 1854 1886 1912 1940 1972 
79 = 2005 200 2047 82052 2102 2109 =. 2155 2160 2170 = 2205 2210 2219 + =2281 2282 
2283 3 22884 2285 2286 = 2312 2316 2346 = 2360 2394 2397 2434 2437 2470 2482 2486 
2548 2549 2593 2594 2619 2622 2677 = 2685 26 2742 2745 2788 = 2791 2794 2855 
2861 <o13 $506 $323 $528 2987 3048 3049 89: 3305 3051 3052 3053 3093 3096 3149 
3155 258 259 260 261 3362 3363 3364 3365 3472 3523 3527 3567 3580 3622 
3632 3677 =: 3687 3805 
MOVER 157#@ = §=61548 1576 1609 1620 1635 1660 1778 1796 1797 1820 1825 1844 1853 1881 
1882 1902 1909 1930 1937 1971 1976 2 2007 2020 2039 = = 2040 2046 2049 = 2091 
2092 2 2104 2148 2150 oii 2157 2194 2202 2204 2207 2281 - 2282 2283 2284 
2285 2286 = 2303s 23504 2306 349 2350 3= 2352 2356 2389 2591 2593 2396 2429 2431 








wer ee ey ce ee ipl} Re ee 
LPA-KUTIK DIAGNOSTIC MD-11-CRLPG-C _-MACYT1_306(1063)__ 26-OCT-80" 09:38 PAGE 5-1 


CRLPGC .P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -- MACRO NAMES \ SEQ 0199 
2433 2436 2474 2481 484 33% 549 593 594 3616 3618 2621 2669 2670 2672 
2674 2676 2679 2713 731 73 735 737 754 2780 84 27 2793 2834 2837 
2843 2848 +t 5 4 905 906 908 910 912 915 949 $330 $036 od 77 
2978 8 049 050 051 052 053 08 083 084 0 088 2 
3095 146 3148 3151 3258 259 260 261 336 363 364 336 3458 3466 3467 
3469 09 3520 3522 3525 3564 569 12 361 3619 3665 3670 3676 
MSY 12498 1518 1542 1571 1604 1630 1655 1778 1789 1812 — 1840 1874 1898 1926 1 
1 2034 2083 2144 2190 2281 2282 2283 2284 2285 2286 2297 $333 379 2418 
2467 2548 549 1a 2594 -2607 2651 2724 776 2827 $o23 $303 ] 049 3050 
51 3052 053 3136 3258 3259 3260 261 3362 363 3365 3450 3502 
556 3605 58 
“>; Io ed 1279 
NEWTST 2208 1518 1542 1571 1604 1630 1655 1778 1789 1812 1840 1874 18098 1926 1968 
8 20 2083 2144 2190 81 2282 2283 2284 2285 2286 2297 2339 2379 2418 
2467 2548 2549 2593 2594 2607 2651 2724 2776 2827 2893 2943 2968 3048 3049 
30 5 3052 3053 3136 3258 3259 3260 3261 3362 3363 3364 3365 
12208 3740 3742 3745 3746 
POPSP2 12468 
PUSH 12208 3740 3742 3745 3746 
REPORT 12208 
RTA 22334 2281 2282 2283 2284 2285 2286 
SCOPE 12208 - 1542 1571 604 1630 1655 1778 1789 1812 1840 1874 1898 1926 1968 1998 
2034 2083 2144 2190 22 2282 2283 2284 2285 2286 2297 2339 2379 2418 2467 
2548 2549 2593 2594 2607 2651 2724 2776 2827 2893 2943 2968 3048 3049 3050 
3051 3052 3136 3258 3259 3260 3261 3362 3363 3364 336 
SETPRI 12208 
SETTRA 37518 3752 
SETUP 12208 1444 
IP 12208 
SLASH 12208 
SPACE 12208 
STARS 12208 1275 1277 1279 1518 1542 1571 1604 1630 1655 1778 1789 1812 1840 1874 
1898 1926 1968 1998 2034 2083 2144 2190 2281 2282 2283 2284 2285 2286 2297 
2339 2379 2418 2467 2548 2549 2593 2594 2607 2651 2724 2776 2827 2893 2943 
2968 3049 3050 3051 3052 3053 3064 3136 3258 3259 3260 3261 3363 
3364 3365 3395 3737 3738 3739 3740 3741 3742 3743 3744 3745 3746 3751 
STM 34008 3458 3509 3564 3612 3665 
STM2 34168 3482 3536 3588 64 
SwRSU 12208 14448 
TOUT 14398 5 
TRETRP 37518 
TYPBIN 12208 
TYPDEC 12208 3395 
TYPNAM 12208 t 
TYPNUM 12208 
TYPOCS 11578 12208 _ 
TyPoctT 12208 3708 3716 3739 3743 3805 
TYPTXT 12208 1448 3482 3536 3588 3641 3696 3706 3710 3805 
UPDAT 12668 
2P23 17834 1789 1812 1840 
2P24 18688 1874 1898 1926 
7P25 19544 
2P26 19614 1968 
7P27 19908 1998 


~ 
wv 
~™ 
os 
: 
% 
= 
Ls) 
f=) 
¥ 





LPA-KW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80 FAS +.J — 5-2 
CRLPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE -- MACRO N SEQ 0200 


22838 22848 22858 22868 


30504 30514 3052 30534 


32604 32614 3362 3363 3364 3365 
1789 1812 1840 1874 1898 1926 





| 


{CRLPGC.P11 18-AUG-80 09:15 CROSS REFERENCE TABLE <= MACRO N 


-TRMATR 11568 
-UTK 6994 3805 
-SACT1) «0.11598 = 1275 
-SAPTB) =1159# = =612798 
SAPTH 1159# 1277 
-SAPTY 11598 3745 
-SCATC 11578 1209 
-SCMTA =61157# = =1279 
- SEOP 11584 3395 
-SERRO 11584 3738 
-SERRT 11584 3739 
-SINLP 6524 3805 
- SMMAC 1418 
-SOUTL 6108 3805 
° 1157# 3746 
-SRDOC 11568 11598 3742 
-SREAD 11588 3743 
-SSCOP 8611584 83741 
-STLKW 5114 3805 
STOUT 14394 3805 
-STRAP) = (1156# 3751 
-STYPD 11564 11584 3740 
-STYPE 11584 3744 
-STYPO 3 061157# 3737 
ABS. 043000 000 CON RW ABS LCL I 
000000 001 CON RW REL LCL I 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPGC ,CRLPGC/CRF=CRLPAB.MAC ,CRLPGC.P11 
RUN-TIME: 42 36 1 SECONDS 

RUN-TIME RATIO: 390/80=4.8 

CORE USED: 42K (83 PAGES) 


ees 
| 


16 
LPASKW11K DIAGNOSTIC MD-11-CRLPG-C MACY11 306(1063) 24-OCT-80" ao  & os 5-3 


SEQ 0201 


—_—_—_—- -----—_- —_-— - _—-- —— ———— -_—— _ 


| ihe DLS \ ee yee 
‘DRLPX2(IMAGE) MICRO CODE :DEFAULT TITLE MACY11 30G(1063) 24-OCT-80 09:45 PAGE 1 
CRLPK2.P11 = O2=NOV=79 11:22 SEQ 0202 


| 1 sTHIS FILE IS THE SAME AS ““CRLPXO.P11"" EXCEPT IT IS LOADED INTO 65000 
4 :1T IS ALSO THE SAME AS "‘DRLPX2.P11"' EXCEPT NAME CHANGE ‘'CRLPX2.P11"° 
| 
4 
5 -LIST MC,BIN,BEX,MEB 
§ -NLIST MD,CND,ME 
8 177777 ADDRESS=-1 
9 : MACRO DEFFINITIONS FOR M8200 AND M8204 MICRO-PROCESSOR 
10 : INSTRUCTION SET. 
\ : TO BE USED WITH RSX MACRO-11 ASSEMBLER 
13 ; 26-MAY-1976 
452 000000" SBEGIN 
453 000000 $_Oc 42000 
454 -GLOBL DRLPX2 
455 -ENABL GBL 
456 
457 


3* 
458 z*MICRO CODE FOR KMC-11 


/DRLPX2( IMAGE) MICRO CODE 
O2-NOV-79 11:22 


|CRLPX2.P11 
| 


460 


100407 
100420 
100430 
100432 
100434 
100436 
100440 


000400 
061220 
061222 
061223 
061224 
061225 
061226 
061227 
063226 


021240 
000777 
061222 


021240 


os eee ye a 
SDEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:45 PAGE 2 


DRLPX2: 


s*THIS CODE WILL BE DOWN LOADED INTO BOTH 
7*KMC-11°S. THE CODE RUNS ASYNCRONOUS TO THE PDP-11 CODE 


sue SYNC THROUGH COMMANDS PASSED VIA THE OUT*/IBUS* REGS. 


; JUMP TABLE USED FOR C 
BR STARTU 
- WORD $$. 
BR CMNOP 
-WORD .$$$. 
BR RDSILO 
WORD .$$$. 
BR WRSILO 
-WORD .$$$. 
BR ROCMND 
WORD .$$$ 
BR WRCMAND 
WORD .$$$. 
BR SAMP 
WORD .$$$. 


START OF U CODED 


STARTU: 
MOVE # 0,BREG 
-WORD ‘ 
on BREG,OUT1 
MOVE BREG,OUT1 
WORD 


CMNOP : 


LOOP: 


MOVE BREG,OUT1 
-WORD .$$$. 
MOVE BREG,OUT1 
WORD .$$S. 
MOVE BREG,OUT1 
-WORD .$SS. 
MOVE BREG,OUT1 
-WORD .$$S. 
ROVE BREG,OUT1 


MOVE BREG, SPAD 
.WORD $85. 


<0> 
<2> 
<3> 
<4> 
<5> 
<6> 
<7> 


<6> 


OMMANDS 
GOTO START 


sNOP=1 

:=2 READ SILO PUT IN BSEL4 

7=3 READ BSEL4 PUT IN SILO. 

3=4 READ FAST PATH PUT IN BSEL4 
3=5 READ BSEL4, PUT IN FAST PATH. 
7=6 TAKE AN A/D SAMPLE 


CLEAR UNIBUS CSRS 


MOVE INPO <12>,0UT1 <O> ;READ STATUS 


MOVE &@ 377, BREG 


° .$$$. 
MOVE BREG,OUT1 <2> ;INDICATE READY FOR COMMAND. 


- WORD $$$. 


MOVE INPO <12>,0UT1 <O0> ;READ STATUS 


MOVE INP1 <2>,SPAD <O> ;READ COMMAND REG. 


SEQ 0203 


‘DRLPX2(IMAGE) MICRO CODE 
/CRLPX2.P11 


| @ 
4% 
| (2) 


PAAR VY & VII UA UI A UT 
QVilWnreN—~OODOnouvfwrn—~Oo 


w 


PARVUM 
SESBSNS 


ee ad 
SSESSLEREALS 


042050 
042052 
042052 


042054 
042054 


042056 
042056 


042060 
042060 


042062 
042062 


042064 
042064 


042066 
042066 


042070 
042070 


042072 
042072 


042074 
042074 


02-NOV-79 11 


123040 
101423 


123040 


160600 


021204 


100420 


122110 


100420 


021224 


100420 


122111 


:22 


;DEFAULT TITLE 


RDSILO: 


WRSILO: 


RDCMND: 


WRCMND : 
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-WORD .$$$. 

BZ LOOP 3NO COMMAND THEN LOOP 
-WORD .$$$. 

MOVE INP1 <2>,SPAD <0> ;RE-READ COMMAND. 
-WORD .$$$. 

BR SPAD <0> ;BR BASED ON CMND. 
-WORD .$$$. 


sNO-USER PROTECTION OFFERED. 


:1F YOU ENTER WRONG CODE - 


YOU LOSE. 
[ROUTINE TO READ THE SILO, PUT IN 
[*BUS REG 4 
MOVE _-INPO <10>,0UT1 <4> ;READ SILO. 
.WORD .$8S. 

:WRITE *BUS 
BR CMNOP RETURN. 
.WORD $$$. 
“ROUTINE TO WRITE SILO, READ DATA FROM 
[*BUS REG 4 
[CMD=3 
MOVE _INP1 <4>,0UTO <10> :READ DATA IN *BUS 
.WORD . $$$. 

:WRITE SILO. 
BR CMNOP 
“WORD . $$$. 


SROUTINE TO READ FAST PATH (CMND) REG. 
[PUT IN *BUS REG 4 
MOVE INPO <11>,0UT1 <4> ;READ FAST PATH 
.WORD .$$$. 

:WRITE *BUS. 


BR CMNOP ;RETURN 
-WORD .$$$. 


ROUTINE TO WRITE FAST we (CMND) REG. 
a FROM *BUS REG 4 


MOVE INP1 <4>,Q0UTO <11> ;READ DATA IN *BUS 


SEQ 0204 


—-- - . _— — on Eee 
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DRLPX (IMAGE) MICRO CODE DEFAULT TITLE MACY11 30G6(1063) 24-OCT-80 09:45 PAGE 2-2 
'CRLPX2.P11 02-NOV-79 11:22 SEQ 0205 
541 sWRITE INTO FAST PATH. 
542 042076 BR CMNOP RETURN. 
(2) 042076 100420 -WORD .$$$. 
543 
544 
545 ; 
546 sTHIS ROUTINE TAKES AN A/D SAMPLE. 
547 7CALL= CAND 6 IN BSEL2 
548 s THESE REGS. MUST BE SET UP IN ADVANCE. 
549 sBSEL 3 MUST CONTAIN READ CODE FOR A/D BUFFER. 
550 sBSEL 4,5 MUST CONTAIN A/D CSR SETTING. 
551 SBSEL 6 "MUST CONTAIN WRITE CODE FOR A/D CSR 
552 sBSEL 7 MUST CONTAIN READ CODE FOR A/D CSR 
553 ; BSEL 3-6-7 WILL REMAIN UNEFFEC . 
554 ; BSEL 4,5 WILL CONTAIN A/D SAMPLE. 
$32 TBSEL2 WILL CONTAIN CODE 377 WHEN DONE. 
566 
567 042100 WTMC SAMP 
(4) 042100 020640 -WORD . .$$$. 
(3) 042102 103040 -WORD .$$$. 
568 042104 MOVE INP1 <6>,0UTO <11> sSEND A/D WRITE CODE. 
(3) 042104 122151 -WORD .$$$. 
569 042106 WTMC SAMP 1 
(4) 042106 020640 WORD .$$$. 
(3) 042110 103043 -WORD .$$$. 
570 042112 MOVE INP1 <4>,0UTO <11> sSEND LOW BYTE CSR INFO. 
(3) 042112 122111 -WORD .$$$. 
571 042114 WTMC SAMP2 
(4) 042114 020640 «WORD .$$$. 
(3) 042116 103046 -WORD .$$$. 
572 042120 MOVE INP1 <5>,0UTO <11> :SEND HIGH BYTE CSR INFO. 
(3) 042120 122131 .WOR .$$$. 
573 042122 WIMC SLOOP 
(4) 042122 020640 -WORD «$$$. 
(3) 042124 103051 -WORD .$$$. 
574 042126 MOVE INP1 <7>,0UTO <11> :SEND READ CODE TO GET A/D CSR. 
(3) 042126 122171 -WORD «$$$. 
575 042130 WTMC SAMP3 
(4. 042130 Q - WORD .$$$. 
(3) 042132 103054 WORD .$$$. 
576 042134 WTMM SLOOP1 
(4) 042134 0 ~ WORD .$$ 
(4) 042136 061620 WORD «$$$. 
(3) 042140 103056 -WORD «$$$. 
577 042142 MOVE INPO <11>,BREG 
(3) 042142 020620 -WORD =. $$$. 
578 042144 MOVE BREG,SPAD <0> 
(3) 042144 063220 -WORD .$$$. 
579 042146 WTMM SLOOP2 
(4) peg tes 020640 -WORD .$$$. 
(4) 042150 061620 -WORD .$$$. 
(3) 042152 103063 -WORD .$$$. 
580 042154 MOVE INPO <11>,BREG 
(3) 042154 020620 -WORD .$8$. 
581 042156 BB? CMNOP ABORT IF A/D BIT 15=1 





-— 


'DRLPX2(IMAGE) MICRO CODE 
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(2) 042156 103420 
582 042160 
(3) 042160 060600 
583 042162 
(2) pester 103473 
584 042164 
(2) 042164 100451 
585 042166 
(3) 042166 122071 
586 042170 
(4) 042170 020640 
(4) 042172 061620 
(3) og So 103074 
587 042176 
(3) 042176 021224 
588 042200 
(4) 042200 020640 
(4) 042202 061620 
(3) 042204 103100 
589 042206 
(3) 042206 021225 
590 042210 
(2) 042210 100420 
591 042212 177777 
592 000001 


| 


;DEFAULT TITLE 


LOPE: 


.$$$. 
INP1 <3>,0UTO <11> 
SLOOP3 
$$. 
.$$$. 
$$$. 
INPO <11>,0UT1 <4> 


09:45 PAGE 2-3 


;1F A/D NOT DONE EXIT. 
ISSUE READ A/B BUFFER. 


SEQ 0206 


a i rr i 
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CRLPX2.P11 O2-NOV-79 11:22 SYMB SE@ 0207 
ADDRES= 177777 SAMP 042100 -ADDWC= 000020 -DMEM = 002400 «SELB = 220 
CLK = 000020 SAMP1 042106 . = 260 -DNOP = 000 -SIMM = 
204 SAMP 042114 ° = 002000 -DOUTO= 002000 «SiNO = soos 

DRLPX2 Bes oee G SAMP 042130 -BB1 = 002400 -DOUTI= 001000 «SINT = 120000 
OoP 04 SLOOP 04 \¢¢ . = 00 -DSPAD= 003000 -SMEM = 040000 
LOPE 042166 SLOOP? 042154 -BB7 = 003400 -DSPBR= 003400 -SUB = 000340 
MARHLD= SLOOP2 042146 -BC = 001000 0 = 400 -SUBWC= 000040 
MARINC= 014000 SLOOPS 042170 -BR = 000400 -FO = 000020 -SUB2C= 000360 
MARLD = 01 SL 042200 -BSBRG= 160000 -INC = 000060 -SO = 020000 
MARLDX= 004000 STARTU 042016 -BSIMM= 100000 -LORN = 000240 -XOR = 000320 
PAGEO = 000000 WRCMND 042074 -BSMEM= 140000 -MINUS= 000360 -$$$. = 100420 
PAGE? = 001000 WRSILO 042064 -BZ = 001400 -M0 = 004000 --LOC = 042040 
PAGE2 = 002000 SSSSER= 000001 -CO = 000400 -OR = 000300 «2A = 000120 
PAGES = 003000 . = -DBR = 000400 -PLUS = 000000 -2AWC = 000140 
RDCMND 042070 -ADC = 000100 -DBRSH= 001400 . SBREG= 060000 
RDSILO 042060 -ADD = 000000 -DEC = 000160 -SELA = 000200 
- ABS. 042214 ~* 000 OVR RW ABS LCL OD 

000000 001 CON §RW ABS LCL I 
ABCODE 004000 002 CON 8 RW REL LCL I 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPX2, CRLPX2=CRLPX2 
RUN-TIME: 3 3 


: SECONDS 
RUN-TIME RATIO: 49/7=6.5 
CORE USED: 42K (83 PAGES) 


